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HISTORY 


VERSION ‘'B’’ WAS CREATED [0: 
#1 INSTALL A 2 LOCATION PATCH TO THE LOGIC TEST. 
#2 INSTALL A 3 BYTE PATCH TO THE M8036 MICRO-CODE. 


#4 CORRECT A DEFECT IN ACCOUNTING ENORMOUS ERRORS IN TOTAL 
ERROR COUNTER 
#5 CORRECT ERROR CODES FOR TwO TESTS. 


2.0 


3.0 


4.0 


LSI11: 
LSI11: 


ABSTRACT 


THE NCV11 DIAGNOSTIC PROGRAM IS A SERIES OF TESTS DESIGNED 
TO TEST ALL_LOGIC FUNCTIONS AND DATA PATHS ACCESSIBLE ON THE 
M8026 M8036. 


THE M7952 DIAGNOSTIC SHOULD HAVE BEEN. EXECUTED. 


AND 
TOTAL PROGRAM CONTROL IS ACCOMPLISHED THRU THE CONSOLE TERMINAL 
VIA KEYBOARD TEST SELECTION AND THE PROVISIONS OF SECTION 5. 
THE PROGRAM CAN BE EXECUTED ON AN LSI-11 OR PDP=11 COMPUTER. 


REQUIREMENTS 

EQUIPMENT 

1. PDP11 FAMILY OR LSI-11 FAMILY COMPUTER 

2. 1/0 TERMINAL (IE: LA36) 

3. NCV11 OPTIGN INCLUDING KWV11 REAL TIME CLOCK (M7952) 

4. AQ17 SELF-TEST CONNECTOR (70-12894) (REQUIRED FOR SECTION 9.2 + 9.3) 
5. 3060 JOYSTICK (OPTIONAL) 

6. HARDWARE TESTER AND PROM BLASTER (OPTIONAL)? 


STORAGE 

THE PROGRAM REQUIRES 16K OF MEMORY 

IF MEMORY MANAGEMENT OR ADDITIONAL MEMORY ARE SENSED, THE 
PROGRAM WILL USE THOSE HARDWARE OPTIONS. 

PRELIMINARY PROGRAMS 

THE KWV11 DIAGNOSTIC (MD-11=CVKWA) SHOULD HAVE BEEN RUN. 


LOADING PROCEDURE 


NORMAL PROCEDURE FOR LOADING A BINARY PROGRAM INTO MEMORY 
SHOULD BE FOLLOWED. 


STARTING PROCEDURE 


IF 


MAKE SURE THE NCV11 DEVICE BUS ADDRESS, INTERRUPT VECTOR ON THE 
M8026 AGREE WITH THE DEFAULT VALUES DEFINED IN SECTION 7.1. 
MAKE SURE THE NCV11 CLOCK BUS ADDRESS ON THE M7952 AGREE 

WITH THE DEFAULT VALUE DEFINED IN SECTION 7.1. 

MAKE SURE THE NCV11 INTERRUPT PRIORITY LEVEL ON THE M8217 
AGREE WITH THE DEFAULT VALUE DEFINED IN SECTION 7.1. 

INSURE THAT THE HALT SWITCH IS DISABLED (IF ANY). 

TYPE THE STARTING ADDRESS OF 200 AND THE CHARACTER G. 

THE PROGRAM WILL RESPOND BY TYPING THE PROGRAM TITLE. 

THE PROGRAM WILL REQUEST SWITCH REGISTER VALUE. 

THE PROGRAM WILL TYPE THE TEST SELECTION MENU FOR THE OPERATOR. 
THE OPERATOR SELECT'’S THE APPROPRIATE TEST BY TYPING THE TEST LETTER AND ‘'CR'’ 


THE PROGRAM IS EXECUTED ON A CPU WITH A SWITCH REGISTER AND THE 


OPERATOR SETS ALL SWITCHES TO A 1, THE SOFTWARE S.R. WILL BE USED. 
IF THE HARDWARE SWITCH REGISTER IS USED, THE SOFTWARE S.R. HAS NO EFFECT. 


SEQ 0003 


5.0 


5.3 


LSI-1i: 


PROGRAM START 
200 STARTING ADDRESS OF THE PROGRAM 
204 RESTART ADDRESS OF THE PROGRAM 
210 STARTING ADDRESS FOR THE FACTORY OPTION CHECK-OUT AREA 


(INFORMS THE PROGRAM THE TESTER AND BLASTER ARE CONNECTED) 


SWITCH OC TAL FUNCTION 
SwW15=1 100000 HALT ON ERROR 
SW14=1 040000 LOOP ON TEST 
SwW13=1 020000 INHIBIT ERROR TYPEOUTS 
SwW11=1 004000 INHIBIT ITERATIONS 
SwW10=1 002000 BELL ON ERROK 
SWO9= 1 001000 LOOP ON ERROR 
SwO8=1 0004 Xx LOOF ON TEST IN SWR <7=0> 
FIELD ADJUSTMENT LOOP 
SWITCH OC TAL FUNCTION 
SW15=1 100000 HALT ON ‘"INPUT VOLTAGE OUT OF ny ERROR 
Sw13=1 020000 INHIBIT ERROR OR CONVERSION TYPEOU 
SWO9=1 001000 INHIBIT CONVERSIONS ON CAMERA #3 GAIN = 1 
SwO8=1 000400 INHIBIT CONVERSIONS ON CAMERA #2 GAIN = 1 
SWO7=1 000200 INHIBIT CONVERSIONS ON CAMERA #1 GAIN = 1 
SWO6= 1 000100 INHIBIT CONVERSIONS ON CAMERA #0 GAIN = 1 
SWO04=1 000020 INHIBIT CONVERSIONS ON JOYSTICK 
SWO3=1 000010 INHIBIT CONVERSIONS ON CAMERA #3 GAIN = 2 
SwO2=1 000004 INHIBIT CONVERSIONS ON CAMERA #2 GAIN = 2 
SWO1=1 000002 INHIBIT CONVERSIONS ON CAMERA #1 GAIN = 2 
SwOO=1 000001 INHIBIT CONVERSIONS ON CAMERA #0 GAIN = 2 
_ CONTROL 

1. THE SOFTWARE SWITCH REGISTER *SWREG* (LOC. 176) CAN BE 

CHANGED BY USING THE ODT FACILITIES 
2. THE SOFTWARE SWITCH REGISTER CAN BE CHANGED UNDER PROGRAM 

CONTROL BY TYPING THE ‘CONTROL & G* KEYS. THIS 

KEYBOARD OPERATION WILL PRINT THE CURRENT CONTENTS 

AND ACCEPT NEW OCTAL SWITCH REGISTER DATA TERMINATED 

WITH A Poor an “peg 
3. ONCE THE ODT MODE HAS BEEN ENTERED BECAUSE OF AN 

ERROR CONDITION WITH BIT15 SET (HALT ON ERROR), STEP #2 

ABOVE IS OF NO VALUE, SO RESORT TO STEP #1 TO ALTER THE 

SOFTWARE SWITCH REGISTER IF DESIRED BEFORE TYPING 

*P* (CONTINUE). 
4. IF THE PROGRAM IS PERFORMING RESET INSTRUCTIONS, SEVERAL 

"CONTROL & C* OR — & G' COMMANDS MAY BE NECESSARY TO 

BE ACKNOWL EDGE BY THE PROGRAM. 
5. TESTING CAN BE ABORTED BY TYPING THE "CONTROL & C' KEYS. 


SEQ 0004 






















ERROR REPORTING 





ALL ERRORS ARE ACCOMPANIED WITH AN ENGLISH LANGUAGE DESCRIPTIVE 
COMMENT AS TO THE TYPE OF FAILURE. FURTHER QUALIFICATION OF 
THE ERROR CAN BE OBTAINED IF NEEDED FROM THE COMMENT AT THE 
ERROR PC OR FROM THE TEST ITSELF. 


MISCELLANEOUS 


NCV11 BUS ADDRESS MODIFICATION 


MODIFY LOCATION "S$BASE' (LOC. 1250) IF BASE NCV11 BUS_ADDRESS IS NOT 772760. 
MODIFY THE LOW NINE BITS OF LOCATION ‘SVECT1" (LOC. 1244) IF 

BASE NCV11 INTERRUPT VECIOR IS NOT 370. 

MODIFY THE HIGH THREE BITS OF LOCATION ‘S$VECT1" (LOC. 1244) IF 

THE INTERRUPT PRIORITY LEVEL IS _NOT LEVEL 6 ON A _UNIBUS CPU. 

MODIFY LOCATION '$CDW1" (LOC. 1254) IF BASE NCV11 CLOCK BUS ADDRESS IS NOT 770420. 


7.2 XXDP/APT NOTES 


THIS DIAGNOSTIC IS CHAINABLE UNDER XXDP (REQUIRES 16K OR MORE) 
IF RUNNING UNDER XXDP/ACT/APT, THE LOGIC AND DIFLIN TESTS WIL L BE RUN. 


7.3 POWER FAIL 
A POWER FAILURE WILL CAUSE A RESTART MESSAGE ON POWER UF AT 
WHICH TIME THE PROGRAM IS RESTARTED (ONLY ON SYSTEMS WITH 
NON-VOLATILE MEMORY AND WITH APPROPRIATE HARDWARE). 

7.4 MULTIPLE NCV11°S INTERFACE TESTING 
THIS PROGRAM DOES NOT ‘‘AUTO-SIZE*’ THE NUMBER OF NCV11°S CONNECTED. 
FOR EACH ADDITIONAL NCV11. THE OPERATOR MUST MODIFY LOCATIONS 
SBASE, SVECT1 AND $CDW1 (REF. 7.1). 

‘43 RESTRICTIONS 


KWV11 REAL TIME CLOCK (M7952) MUST NOT BE CONNECTED TO M8026 ‘FAST-ON'' TABS. 
_ UNLESS OTHERWISE STATED, NO EXTERNAL CONNECTIONS TO M8036 OR AQI7. 













ADDRESS MAKER TABLE 


THE M8036 CONTAINS LOGIC TO CONVERT A/D DATA INTO A RELATIVE 
ADDRESS. BELOW IS A TABLE WHICH SHOWS THE ADDRESS MAKER OUTPUT 
WITH THE ‘TEST CONTROL’’ MAINT. BIT SET. SETTING THIS BIT ENABLES 
THE STATES OF THE ‘'GAIN, 7B ENABLE AND RESOLUTION’’ BITS SIMULATE 
THE CONVERTED A/D DATA. 


RESOLUTION RESS MAKER OUTPUT B 
RESO RES1 WORD*16 15 14 3 15 11.10 09 08 07 06 "35 04 03 02 01 00 
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ALWAYS A 0 

ALWAYS A 1 

GAIN FLOP STATE 

ZB ENABLE FLOP STATE 

THE "'AND'' OF ZB ENABLE WITH 7B MAINT. INPUT 
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8.0 EXECUTION TIME 


LOGIC: EXECUTION TIME RANGES FROM ABOUT 5 SECONDS WITH NO ITERATIONS 
TO ABOUT 70 SECONDS WITH ITERATIONS ENABLED. 
AN END PASS MESSAGE INDICATES ALL SUB-TESTS HAVE COMPLETED. 
EACH ADDITIONAL 4K OF MEMORY WILL ADD ABOUT 10 SECONDS 
TO THE LOGIC TEST RUNTIME. 

DIFFERENTIAL LINEARITY: EXECUTION TIME iS ABOUT 90 SECONDS. 


9.0 


9.3 


PROGRAM TEST DESCRIPTIONS 


THE PROGRAM CONSISTS OF FOUR MAIN SECTIONS PLUS THREE AUXILIARY AND 
THREE FACTORY OPTION CHECK-OUT SECTIONS. 

THE OPERATOR SELECTS EACH SECTION VIA THE CONSOLE KEYBOARD. 

BELOW IS A BRIEF DESCRIPTION OF EACH SECTION AND THE KEYBOARD CHARACTER. 


MAIN SECTIONS 


L LOGIC TEST (M8026 + M8036) 
<NO INTERVENTION> <SETUP ONLY IF SA=210> 


THE TEST CONTAINS A SERIES OF INDEPENDENT SUB-TESTS DESIGNED 

TO TEST LOGIC FUNCTIONS AND DATA PATHS OF THE NCV11 GAMMA CAMERA INTERFACE. 
A COMPLETE LIST OF TESTS IS AVAILABLE IN THE TABLE OF CONTENTS 

AT THE BEGINNING OF THE LISTING. THE COMMENT FIELD WITHIN 

EACH SUB-TEST TiTLE CAN BE BENEFICIAL TO UNDERSTANDING THE LOGIC TESTED. 
ADDITIONAL LOGIC TESTS OF THE AO17 WILL BE EXECUTED IF THE 

PROGRAM WAS STARTED AT LOC. 210. 


D (M) DIFFERENTIAL LINEARITY (A017) 


<REQUIRES SELF-TEST CONNECTOR IN J1 ON THE AQ17> <SETUP INTERVENTION ONLY> 
<A017 SWITCH SET TO ‘MAINT.’ POSITION> 


A FINITE VARIATION OF INPUT VOLTAGE EQUALS A GIVEN CONVERTED 

VALUE OR Bagi 2 THE TEST IS TO VERIFY THE WIDTH OF EACH POSSIBLE 
STATE. AN INPUT VOLTAGE IS RAMPED AND THE NCV11 SAMPLES THE RESULT. 
THE NCV11_ INCREMENTS THE RESPECTIVE MEMORY LOCATION CORRESPONDING 
TO THE INPUT VALUE. THE PROGRAM THEN DETERMINES IF ANY STATE HAS 
BEEN SKIPPED, IS EXCESSIVELY WIDE OR NARROW. WHEN ‘™’' IS USED TO 
SELECT THE SECTION, THE PROGRAM OUTPUT AN EXPANDED REPORT OF 

THE 254. STATES. TIGHTER ERROR TOLERANCES ARE USED IF RUNNING 

IN THE OPTION CHECKOUT AREA (SA 210). 


F FINAL ACCEPTANCE 


<REQUIRES SELF-TEST CONNECTOR IN J1 ON THE AQ17> <SETUP INTERVENTION ONLY> 


<A017 SWITCH SET TO ‘MAINT.** POSITION> 
THE SUB-SECTION RUNS SECTION ‘'' AND ‘D*’ TO VERIFY PROPER OPERATION. 


SEQ 0007 


4 ADJUSTMENT OF AOQ17 AT FIELD SITE 


<MANUAL INTERVENTION> <SETUP INTERVENT ION> 
<AQ17 SWITCH SE TO ‘OPER.'' POSITION> 


COARSE ADJUSTMENT OT THE AQ17 CAN BE PERFORMED USING THIS SUB-SECTION. 
THE OPERATOR MAY SELECT THE CAMERA AND GAIN TO BE SAMPLED USING THE 
SWITCH REGISTER. A SERIES OF CONVERSIONS ARE TAKEN ON EACH CAMERA 
AND THE OPERATCR IS INFORMED OF THE RESULTS. 


SEQ 0008 


SWITCH OCTAL FUNCTION 

SW15=1 100000 HALT ON ‘"INPUT VOLTAGE OUT OF RANGE’ ERROR 
Sw13=1 020000 INHIBIT ERROR OR CONVERTED VALUE TYPE-OUT 
SWO9=1 001000 INHIBIT CONVERSIONS ON CAMERA #3 GAIN = 1 
SwO8=1 000400 INHIBIT CONVERSIONS ON CAMERA #2 GAIN = 1 
SwO7=1 000200 INHIBIT CONVERSIONS ON CAMERA #1 GAIN = 1 
SwO6=1 000100 INHIBIT CONVERSIONS ON CAMERA #0 GAIN = 1 
SW04=1 000020 INHIBIT CONVERSIONS ON JOYSTICK 

SwO3=1 000010 INHIBIT CONVERSIONS ON CAMERA #3 GAIN = 2 
SwO2=1 000004 INHIBIT CONVERSIONS ON CAMERA #2 GAIN = 2 
SWO1=1 000002 INHIBIT CONVERSIONS ON CAMERA #1 GAIN = 2 
SWOO=1 000001 INHIBIT CONVERSIONS ON CAMERA #0 GAIN = 2 


AUXILIARY SECTION 


0 OTHER TERMINAL ADDRESS 


IN SOME CUSTOMER SITES, THE CONSOLE TERMINAL MAY NOT BE LOCATED 
WITHIN EASY ACCESS TO THE NCV11. THIS SECTION ALLOWS THE OPERATOR 
TO CHANGE THE PROGRAMS CONTROL TO ANOTHER TERMINAL. 


H HELP THE OPERATOR 
A LIST OF THE COMMANDS WILL BE TYPED TO REFRESH THE OPERATOR'S MEMORY. 
S SOFTWARE SWITCH REGISTER 


ENABLES THE OPERATOR TO CHANGE THE SOFTWARE SWITCH REGISTER WHEN 
NOT RUNNING ANOTHER SUB-SECTION. 


FACTORY OPTION CHECK-OUT SECTION 


I INITIAL ADJUSTMENT OF A017 


<MANUAL INTERVENTION> <SETUP_INTERVENTION> <HARDWARE TESTER> 
<A017 SWITCH SET TO *OPER.'' POSITION> 


A KNOWN GOOD DIGITAL TO ANALOG (D/A) SUPPLIES A REFERENCE INPUT 
VOLTAGE. THE OPERATOR IS INFORMED WHICH ADJUSTMENT TO PERFORM. 

THE PURPOSE OF ia. TEST IS TO VERIFY THAT THE ADJUSTMENT TO THE PRE-AMP 
SECTION CAN BE PREFORMED. THE TEST DOES NOT ATTEMPT TO CALIBRATE 

THE PRE-AMP, BUT ONLY TO FUNCTIONALLY VERIFY THe ADJUSTMENTS. 


9.9 


16.0 


B BLASTING THE LINEARITY CORRECTION PROM 


<MANUAL INTERVENTION> <SETUP INTERVENTION> <HARDWARE TESTER> 
<AQ17 SWITCH SET TO ‘MAINT.** PGSITION> 


THE TEST IS DESIGNED TO CREATE THE LINEARITY CORRECTION PROM (LCP). 


THE TESTER HARDWARE CONTAINS RAM STORAGE TO EMULATE THE LCP. _ THE 
PROGRAM WILL RUN DIFFERENTIAL LINEARITY. THE PROGRAM WILL THEN 
USE THE RESULTS TO DETERMINE THE CORRECT VALUE TO BE PLACED IN — 
LCP. THE PROGRAM WILL THEN INFORM THE PROM BLASTER TO GENERATE A 
CORRECTED i oso PROM FOR THE AO17 MODULE OMPLETI 


T 
CREATED LCP. THE PROGRAM WILL RE-EXECUTE DIFFERENTIAL LINEARITY. 


C CONTROL PROGRAM PROM 
<MANUAL INTERVENTION> <SETUP INTERVENTION> <HARDWARE TESTER> 
THE ROUTINE WILL CREATE THE M8036 CONTROL PROM. THE OPERATOR 


MAY CREATE SEVERAL COPIES BY REPEATELY EXECUTING THIS SECTION. 
THE PROGRAM WILL INFORM THE OPERATOR THE STEPS TO PERFORM. 


LOCATION OCTAL BINARY 
215 10001101 
01 244 10100100 
0 116 01001110 
03 144 01100100 
215 10001101 
05 244 10100100 
06 116 01007110 
07 144 01100100 
10 215 10001101 
11 244 10100100 
12 116 01001110 
13 144 01100100 
14 215 10001101 
15 244 10100100 
16 116 01001110 
17 144 01100100 
20 106 (116) 01000110 (01001110) 
21 144 01100100 
22 314 (216) 11001100 (10001119) 
23 304 (244) 11000100 (10100100) 
NOTE: () INDICATES OLD CONTENTS OF M8036 ROM. 


LISTING 


SEQ 0009 


CZNCCB NCV11 
CZNCCB.P11 


Ne 


1 
22 
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(1) 
147 
149 
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31-AUG-79 11:21 E OF CONTENTS 


BASIC DEFINITIONS 
MEMORY 


MENT DE+ INITIONS 


MANAGE 
OPERATIONAL SWITCH SETTINGS 
TRAP CATCHER 
STARTING ADDRESS(ES) 
ACT11 HOOKS 


C 


APT PARAMETER BLOCK 
OMMION TAGS 


ERROR POINTER TABLE 

INITIALIZE THE COMMON TAGS 

TYPE PROGRAM NAME 

GET VALUE FOR SOFTWARE gh REGISTER 


PRIME T 


FROM THE DEFAULT VALUES 


HE NCV11_ ADDRESS 
DIAGNOSTIC IDENTIFICATION TYPEOUT 
KEYBOARD COMMAND DECODER 


DESCRIPTION 


VERIFY THE A NCV11 AND 2 NCV11 CLOCK BUS ADDRESSES RESPOND 
FLOAT A1A S_10 BITS OF THE COMMAND/STATUS REG. 
VERIFY That INIT rigy: THE ¥- REGISTER 


VERIFY THAT ““INIT’’ CLEARS THE SFR REGISTER 
VERIFY THAT *‘CLEAR ALL** CLEARS THE SFR REGISTER 
ROSS THE WORD REGISTER 


FLOAT A 1 ACROSS THE BUS ADDRESS REGISTER 

FLOAT A 1 ACROSS THE OFFSET REGISTER 

VERIFY NO DUAL REGISTER SELECTION 

VERIFY ‘CLR ALL** CLEARS THE py: OFFSET BITS 
TEST THE *‘ACTIVE'’ FLOP CAN SET AND CLEAR 


VERIFY Z INPUTS CAUSE THE LOW . BITS OF 32 BIT COUNTER TO CHANGEIN MATRIX MODE 
THE OF 32 BI CHANGE 


VERIFY Z INPUTS CAUSE LOW 16 BITS OF T COUNTER TO 
VERIFY Z INPUTS CAUSE THE LOW 24 BITS BIT COUNTER TO CHANGE 
VERIFY Z INPUTS CAUSE THE HIGH 8 BITS T T COUNTER TO C 


OF THE 32 BI HANGE 
VERIFY Z_ INPUTS DO NOT CAUSE THE LOW 8 BITS OF 32 BIT COUNTER TO CHANGE IN LIST MODE 
TEST THAT 'WCA OVFL"’ SETS Z/WC OVERFLOW FLOP AND ‘CLR ALL'' CLEARS IT 

TEST THAT ‘WCA OVFL'' SETS Z/WC OVERFLOW FLOP AND "CLR WC OVFL’ CLEARS IT 

TEST THAT “WCA OVFL'* GENERATES AN INTERRUPT 

VERIFY ‘WCA OVFL'* CLEARS "ACTIVE" 


ey ol aod DONE FLOP SETS 
VERIFY * RESET’ ee yee Ay THE EP me FLOP 


NOVSTICK D DATA PATH = IN =0 =0 000 
JOYSTICK DATA PATH = GAIN =1 

JOYSTICK DATA PATH = ZB ENABLE = 

JOYSTICK DATA PATH RES. = 001 

JOYSTICK DATA PATH - = 010 

JOYSTICK DATA PATH - = 100 


VERIFY THE DATA INCREMENT FUNCTION 


SEQ 0010 
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TEST ADDRESS MAKER 
ENABLE A oe WORD TRANSFER 
ENABLE A 512 WORD TRANSFER 
VERIFY *"TIMEOUT’’ FLOP SETS AND IT 
‘TIMEOUT’ FLOP SETS AND ‘CLR TIMEOUT’ CLEARS IT 
**TIMEOUT’’ INTERRUPT 
INCREMENTING INTO EXTENDED ADDRESS arr 16 


he bay ties 
VERA 


it a 


A_WORD 
rine (000000) DATA WORD 
a on tot FOR INCREMENT FUNCTION 


NCREMENT DATA PATH 
NC me TO SET CELL OVERFLOW AND ‘CLR CELL** TO CLEAR IT 
. L. A CELL OVERFLOW AND ‘CLR ALL*’ TO CLEAR IT 
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ADDER INPUT 
OPERATION OF THE ‘TEST x'' 
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ROUT INE 
READ AN OCTAL NUMBER FROM THE TTY 
CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 
SCOPE HANDLER ROUTINE 


TYPE ROUTINE 
BINARY TO OCTAL (ASCII) AND TYPE 
ERROR HANDLER ROUT 


ROUT INE 
TH BINARY TO DECIMAL ASCII CONVERT ROUTINE 
BINARY TO DECIMAL ASCIZ ROUTINE 


TRAP TABLE 
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1 :DEVELOPED USING SYSMAC.C3 
2 "LIST ME 
% -NLIST MD,MC,CND 
4 .ENABL ABS, 
5 167400 $SWR=167400 
& 000001 $TN=1 
12 .TITLE CZNCCB NCV11 DIAGNOSTIC 
(1) :*COPYRIGHT (C) 1979 
q) :*DIGITAL EQUIPMENT CORP. 
(1 ; #MAYNARD MASS. 01754 
(1) ; #PROGRAM BY RAYMOND SHOOP 
(1) 8TH 1S PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
a ; *PACKAGE (MAINDEC-11=DZQAC-C3), JAN 19, 1977. 
3 * SBTTL BASIC DEFINITIONS 
(1) :*INITIAL ADDRESS OF THE STACK POINTER *** 1100 *«« 
(1) 001100 STACK= 1100 
(1) -EQUIV EMT,ERROR ::BASIC DEFINITION OF ERROR CALL 
i) .EQUIV IOT, SCOPE [BASIC DEFINITION OF SCOPE CALL 
(1) :*MISCELLANEOUS DEFINITIONS 
(1) 000011 HT= 11 ::CODE FOR HORIZONTAL TAB 
(1) 000012 LF= 12 7:CODE FOR LINE FEED 
(1) 000015 CR= 15 ::CODE FOR CARRIAGE RETURN 
(1) 000200 CRLF= 200 [CODE FOR CARRIAGE RETURN-LINE FEED 
(1) 177776 PS= 177776 [PROCESSOR STATUS WORD 
(1) .EQUIV PS,PSW 
(1) 177774 STKLMT= 177774 :3STACK LIMIT REGISTER 
(1) 177772 PIRQ= 177772 *PROGRAM INTERRUPT REQUEST REGISTER 
(1) 177570 DSWR= 177570 T:HARDWARE SWITCH REGISTER 
(1) 177570 DDISP= 177570 7 HARDWARE DISPLAY REGISTER 
(1) :*GENERAL PURPOSE REGISTER DEFINITIONS 
(1) RO= %0 7:GENERAL REGISTER 
(1) 000001 R1= 1 7: GENERAL REGISTER 
(1) 000002 R2= %2 : GENERAL REGISTER 
(1) 000003 R3= 7: GENERAL REGISTER 
(1) R4= 24 7 GENERAL REGISTER 
(1) 000005 R5S= 15 7:GENERAL REGISTER 
(1) R6= 16 3 :GENERAL REGISTER 
(1) 000007 R7= 27 RAL REGISTER 
(1) 000006 = %6 +I STACK POINTER 
D 000007 PC= 27 +: PROGRAM COUNTER 
(1) :*PRIORITY LEVEL DEFINITIONS 
(1) PRO= OO > PRIORITY LEVEL 0 
(1) 0 PRi= 40 +:PRIORITY LEVEL 1 
(1) 100 PR2= ::PRIORITY LEVEL : 
(1) 000140 PR3= = 140 ::PRIORITY LEVEL 
(1) PR4= 200 PRIORITY LEVEL 4 
(1) 000240 PR5S= 260 *:PRIORITY LEVEL 5 
(1) PR6= 300 * PRIORITY LEVEL 6 
(1) 000340 PR7= 340 PRIORITY LEVEL 7 
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CZNCCB.P11 31-AUG-79 BASIC DEFINITIONS SEQ 0014 
(1) 
(1) s*' "SWITCH REGISTER'’ SWITCH DEFINITIONS 
(1) Msi wi ie 
(1) 0000 W14= 
(1) 020000 Sw1i3= 20000 
(1) 010000 Swi2= 10000 
(1) 000 Swi1= 4000 
(1) 002000 Swid0= 2000 
(1) 001000 Swo9= 1000 
(1) SwO8= 400 
(1) 000200 Swo7= 200 
(1) 000100 SwO6= 100 
(1) 0 SwOS= 40 
(1) 000020 SwO4= 20 
(1) 000010 SwO3= 10 
(1) SWO2= 4 
(1) 000002 SwOl= 2 
(1) 000001 SwO0= 1 
(1) EQUIV SWwO9,Sw9 
(1) FQUIV SWwO8,Sw8 
(1) EQUIV SWO7,SW7 
(1) EQUIV Sw06, 
(1) EQUIV Sw05,SW5 
(1) EQUIV Sw04, 
(1) EQUIV SW03,SW3 
(1) EQUIV SWO2,SW2 
(1) EQUIV SWO1,SW1 
i EQUIV SWwOO,SWO 
(1) 
(1) :*DATA BIT DEFINITIONS (BITOO TO BIT15) 
(1) 100000 BIT15= 1000 
(1) 040000 BIT14= 40000 
(1) 020000 BIT13= 20000 
(1) 010000 BIT12= 10000 
(1) 000 BIT11= 4000 
(1) 002000 BIT190= 2000 
(1) 001000 BITO9= 1000 
(1) BITO8= 400 
(1) 000200 BITO7= 200 
(1) 000100 BITO6= 100 
(1) B1TOS= 40 
(1) 000020 BIT04= 20 
(7) 000070 BITO3= 10 
(1) BITO2= 4 
(1) 000002 BITO1= 2 
(1) 000001 BI T00= 
(1) EQUIV BITO9,BIT9 
(1) EQUIV BITO8,BIT8 
(1) EQUIV BITO7,BIT7 
(1) EQUIV BITO6,BIT6 
(1) EQUIV BITOS,BITS 
(1) EQUIV BIT04,BIT4 
(1) EQUIV BITO3,BIT3 
(1) EQUIV B1T02,BIT2 
(1) EQUIV BITO1,BIT1 
(1) EQUIV BITOO,BITO 








. ¢€ 
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CZNCCB.P17 31-AUG-79 11:21 BASIC DEFINITIONS SEQ 0015 
(1) 
(1) ;*BASIC ‘'CPU'’ TRAP VECTOR ADDRESSES 
(1) ERRVEC= 4 OUT AND OTHER ERRORS 
(1) 10 RESVEC= 10 : RESERVED AND ILLEGAL INSTRUCTIONS 
(1) 0000174 TBITVEC=14 MP ee BIT 
(1) 000014 TRTIVEC= 14 RACE TRAP 
(1) 000014 BPTVEC= 14 BREAKPOINT TRAP (BPT> 
(1) 000020 IOTVEC= 20 ;; INPUT/OUTPUT TRAP (107) ** SCOPE ** 
(1) 000024 PWRVEC= ¢c4 <9 R FAIL 
(1) 000030 EMTVEC= 30 +S EMULATOR TRAP (EMT) **ERROR** 
(1) 000034 TRAPVE C=34 37’ TRAP’' TRAP 
(1) 000060 TKVEC= 60 :7 TTY KEYBOARD VECTOR 
(1) 000064 TPVEC= 64 yok PRINTER VECTOR 
(1) 000240 PIRQVEC=240 PROGRAM INTERRUPT REQUEST VECTOR 
B .SBTTL MEMORY MANAGEMENT * DEF INI TIONS 
Sf. :*KT71 VECTOR ADDRESS 
A 000250 MMVEC= 250 
if 3*KT11 STATUS REGISTER ADDRESSES 
( 
(1) 177572 SRO= 177572 
(1) 177574 SR1=- 177574 
(1) 177576 SR2= 177576 
Sh 172516 SR3= 172516 
) 
ny ;*USER ''I'' PAGE DESCRIPTOR REGISTERS 
( 
(1) 177600 UIPDRO= 177600 
(1) 177602 UIPDR1= 177602 
(1) 177604 UIPDR2= 177604 
(1) 177606 UIPDR3= 177606 
(1) 177610 UIPDR4= 177610 
(1) 177612 UIPDRS5= 177612 
(1) 177614 UIPDR6= 177614 
4 177616 UIPDR7= 177616 
Ae ;*USER ‘'D'' PAGE DESCRIPTOR REGISTORS 
(1) 177620 UDFDRO= 177620 
(1) 177622 UDPDR1= 177622 
(1) 177624 UDPDR2= 177624 
(1) 177626 UDPDR3= 177626 
(1) 177630 UDPDR4= 177630 
(1) 177632 UDPDRS5= 177632 
(1) 177634 UDPDR6= 177634 
AE 177636 UDPDR7= 177636 
Ae ;*USER ‘‘I'' PAGE ADDRESS REGISTERS 
(1) 177640 UIPARO= 177640 
(1) 177642 UIPAR1= 177642 
(1) 177644 UIPAR2= 177644 
(1) 177646 UIPAR3= 177646 
(1) 177650 UIPAR4= 177650 





D2 
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177652 UIPARS= 177652 

177654 UIPAR6= 177654 

177656 UIPAR7= 177656 

;*USER 'D'' PAGE ADDRESS REGISTERS 

177660 UDPARO= 177660 

177662 UDPAR1= 177662 

177664 UDPAR2= 177664 

77 UDPAR3= 177666 

177670 UDPAR4= 177670 

177672 UDPARS= 177672 

177674 UDPAR6= 177674 

177676 UDPAR7= 177676 


3 *SUPERVISOR ‘'I’’ PAGE DESCRIPTOR REGISTERS 


172 SIPDRO= 172200 
172202 SIPDR1= 172202 
172204 SIPDR2= 172204 
172206 SIPDR3= 172206 
172210 SIPDR4= 172210 
172212 SIPDR5= 172212 
172214 SIPDR6= 172214 
172216 SIPDR7= 172216 


;*SUPERVISOR 'D'' PAGE DESCRIPTOR REGISTERS 
SDPDRO= 172220 


~~ RR RRR RRR ARR AAA AAA AA AAA AAA AAA AA AAA AO AA AAA AAA AAR AARA 

mk i th td od 8 hh ot ot = 5h th 1 St tt 

Ne Nee ee Nee eee eee ee eee A a ae ee 
—) 


172222 SDPDRI= 172222 
172224 SDPDR2= 172224 
172226 SDPDR3= 172226 
172230 SDPDR4= 172230 
172232 SDPDR5= 172232 
172234 SDPDR6= 172234 
172236 SDPDR7= 172236 
;*SUPERVISOR "'I'' PAGE ADDRESS REGISTERS 
172240 SIPARO= 172240 
172262 SIPAR1= 172242 
172244 SIPARQ= 172244 
172246 SIPAR3= 17 
172250 SIPAR4= 172250 
172252 SIPARS= 172252 
172254 SIPARG= 172254 
172256 SIPAR7= 172256 
;*SUPERVISOR 'D'' PAGE ADDRESS REGISTERS 
172260 SDPARO= 172260 
172262 SDPARI= 172262 
172264 SDPAR2= 172264 
2266 SDPAR3= 172266 
172270 SDPAR4= 172270 
172272 SDPARS= 172272 


E 
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C2NCCB.P1131-AUG-79 11: Y MANAGEMENT DEFINITIONS SEQ 0017 
a) 172274 SDPAR6= 172276 | 
() 172276 SDPAR7= 172276 
( 

1) KERNEL ‘'I'’ PAGE DESCRIPTOR REGISTERS 
(1) 

(1) 172300 KIPDRO= 172300 

a) 172302 KIPDRI= 172302 

1) 172304 KIPDR2= 172304 

1) 172306 KIPDR3= 172306 

a) 172310 KIPDR4= 172310 

(1) 172312 KIPDRS= 172312 

1) 172314 KIPDR6= 172314 

) 172316 KIPDR7= 172316 

( 

cD KERNEL 'D'' PAGE DESCRIPTOR REGISTERS 
( 

1) 172320 KDPDRO= 172320 

(1) 172322 KDPDR1= 172322 

(1) 172324 KDPDR2= 172324 

(1) 172326 KDPDR3= 172326 

(1) 172330 KDPDR4= 172330 

a) 172332 KDPDRS= 172332 

(1) 172334 KDPDR6= 172334 

ae 172336 KDPDR7= 172336 

a) :*KERNEL ''I'' PAGE ADDRESS REGISTERS 
1) 172340 KIPARO= 172340 

a) 172342 KIPART= 172342 

(1) 172344 KIPAR2= 172364 

(1) 172346 KIPARS= 172346 

(1) 172350 KIPARG= 172350 

(1) 172352 KIPARS= 172352 

(1) 172354 KIPAR6= 172354 

CD) 172356 KIPAR?= 172356 

a) :*KERNEL 'D'' PAGE ADDRESS REGISTERS 
(1) 172360 KDPARO= 172360 

(1) 172362 KDPART= 172362 

(1) 172364 KDPAR2= 172364 

(1) 172366 KDPAR3= 172366 

(1) 172370 KDPARG= 17237 

(1) 172372 KDPARS= 172372 

(1) 172374 KDPAR6= 172374 

) 172376 KDPAR7= 172376 

15 

16 172760 ABASE=172760 :NCV11 BASE ADDRESS 
17 140370 AVECT1=140370 “BR LEVEL 6 VECTOR TO 370 


170420 ACDW1=170420 3NCV11 CLOCK ADDRESS 
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C2NCCB.P11 31-AUG-79 11:21 MEMORY MANAGEMENT DEF INI TIONS SEQ 0018 
20 
.SBTTL OPERATIONAL SWITCH SETTINGS 
( ;* 
( i* SWITCH USE 
( se  esese~e 38 Seseeseousrrssosesees 
( i 15 HALT ON ERROR 
( ;* 14 LOOP ON TEST 
( Te 13 INHIBIT ERROR TYPEOUTS 
( 3* 11 INHIBIT ITERATIONS 
( 73 10 BELL ON ERROR 
: :* 7 LOOP ON 


ERROR 
: LOOP ON TEST IN SWR<7:0> 
-SBTTL TRAP CATCHER 


WwwewvrvrvvvuvvwvNnvervvvvyvvvyevevw 


( 

( 000000 -=0 

( ;*ALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN A ''.4#2,HALT"’ 

( ;*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 

( 000176 agen . CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 

( 

( 000174 900000 DISPREG: = WORD 0 ie SOFTWARE DISPLAY REGISTER 

( 000176 000000 WREG: -WORD 0 3s SOFTWARE SWITCH REGISTER 

( * SBITL STARTING ADDRESS(ES) 

( 000200 000137 002034 JMP @ABEGIN ;;JUMP TO STARTING ADDRESS OF PROGRAM 
000204 000137 002014 JMP RTRT RESTART ADDRESS 

24 000210 000137 002022 JMP TESTER :STARTING ADDRESS WHEN IN THE OPTION AREA 


27 000100 000104 000200 000002 104,200,2 3B EVENT SAFE GUARD 


! 
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29 .SBTTL ACT11 HOOKS 

) 

(3) FF RAMRAAARRARAARAEAAAERRARERARAARARRORRARRAARARRARRRERAERHAAREAAERED 
(1) =HOOKS REQUIRED BY ACT)? 

(1) 000106 $SVPC=. :SAVE PC 

(1) 000046 .=46 

(1) 000046 030166 $SENDAD ::1)SET LOC.46 TO ADDRESS OF $SENDAD IN .$EOP 
(1) 000052 =52 

(1) 000052 000000 .WORD 0 ::2)SET LOC. Pe TO ZERO 

(1) 000106 .=$SVPC +: RESTORE P 

30 001000 


-=1000 
.SBTTL APT PARAMETER BLOCK 


5 LAER AERAARAEA AERA AERARAEAERARRERRARERAERAHAEERRERAERRERARAERAAERED 


=SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 


ST RARAERARAAA RARE REAEREREERRAERERRARAAAARAEARREARARARAERARAERARERS 


001000 - $X=. ty CURRENT LOCATION 

000024 2=24 SET POWER FAIL TO POINT TO START OF PROGRAM 
000024 000200 200 >:FOR APT START UP 

000044 -=44 ;sPOINT TO APT INDIRECT ADDRESS PNTR. 
000044 001000 SAPTHDR ;;POINT TO APT HEADER BLOCK 

001000 -=.$X  ;;RESET LOCATION COUNTER 


CP RAAAAAAARRAARARARRAAAAAEAERAAARAERARRERERAARRERAREAERAERARRERRAO RH 


:SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
; INTERFACE SPEC. 


001000 SAPTHD: 

001000 000000 $HIBTS: .WORD OQ 3::TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 

001002 001174 SMBADR: .WORD $MAIL ;;ADDRESS OF APT MAILBOX (BITS 0-15) 

001004 000030 $TSTM: .WORD 30 7 ;RUN TIM OF LONGEST TEST 

001006 000010 $PASTM: .WORD 10 ::RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 
001010 000030 $SUNITM: .WORD 30 ; ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 


ee, te te i te, a a a, ee ee 
a a ts as a fl) ss ss Ss sf) 0 SGI 
eee ees OS eS ee we ae ee eae wee 


001012 000031 -WORD $ETEND-$MAIL/2 ;;LENGTH MAILBOX-E TABLE (WORDS) 


H 
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-SBTTL COMMON TAGS 


% 


WERARARARERAARAASAARSAASLARARRRSRARRRAR RRR RARER RR RAR RRR RR RRR RRR RASS SSD | 


:*THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
:*USED IN THE PROGRAM. 


SCMTAG: 3¢START OF COMMON TAGS 


: CONTAINS THE ey NUMBER 

; ERROR FLAG 
SUBTEST ITERATION COUNT 
SCOPE LOOP ADDRESS 
SCOPE RETURN FOR ERRORS 
TOTAL ERRORS DETECTED 
ITEM CONTROL BYTE 
MAX. ERRORS PER TEST 
PC OF LAST ERROR INSTRUCTION 
ADDRESS OF ‘GOOD’ DATA 
ADDRESS OF ‘BAD’ DATA 
*GOOD' DATA 
*BAD' 


Fs INS DATA 
> :RESERVED--NOT TO BE USED 


3 ;AUTOMATIC MODE INDICATOR 
3; INTERRUPT MODE INDICATOR 


; ADDRESS OF SWITCH REGISTER 
; ADDRESS OF DISPLAY REGISTER 
77 TTY KBD STATUS 
7: TTY KBD BUFFER 
: TTY PRINTER STATUS REG. ADDRESS 
3:7 TTY PRINTER BUFFER REG. ADDRESS 
:s CONTAINS NULL CHARACTER FOR FILLS 
:CONTAINS # OF FILLER CHARACTERS REQUIRED 
:SINSERT FILL CHARS. AFTER A ‘LINE FEED’ 
7 ‘TERMINAL AVAILABLE*’ FLAG (BI T<07>=0=YES) 
NUMBER OF ITERATIONS 
000000 : : TESCAPE ON ERROR ADDRESS 
177607 rox r. > yhineaah baal #3 CODE FOR BELL 
077 “aye ;QUESTION MARK 
015 e “hy <i$> ; CARRIAGE RETURN 
: Z <12> SCINE FEED 


WEARERS RALASZASSLASLASESRRRA SERRA RARER RRA A RAR RR AAAS RRR RRR SRR DSSS DS 


“SBITL APT MAILBOX-ETABLE 


SLR AERA EAA ARERR AEE EREREAREAEREREREAREREREEREREEREH ERE 


88888888888388833s8sss 


a ad ad ad od od od od = 
RARVYSRRVSSARNSKRAVES 


> 
Oo 


( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 
( 


fy 3 Ss Ss Ss Ss hs Ss SS Sh) Sh Sh SS Ss SS FH Hh 9 Sh 3) 4 Sh SS 3 Ss SS BS 
ee Ne Nee we eee ee eee eee ee ee eee ee ee ees ee a ae oe a SoS eae Se 


3; APT MAILBOX 

3 :MESSAGE TYPE CODE 
rest oe NUMBER 
3 DEVICE oe 


O UNIT NUMBER 
>IMESSAGE ADDRESS 
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3 sMESSAGE LENGTH 

7 APT ENVIRONMENT TABLE 
: ENVIRONMENT BYTE 

; ENVIRONMENT MODE BITS 
7;APT SWITCH REGISTER 


TYPE 
1/04=01, 11/05=02,11/20=03,11/40=04,11/45=05 
11770=06. her” Q=10 
BIT 10=REAL_TIME CLO 
BIT 9=FLOATING POINT. oe 
BIT 8=MEMORY MANAGEMENT 


; HIGH ADDRESS .M.S. BYTE 
BLKA#i 
=~ (HIGH BYTE) 
C CORE=001 


-BLKA1 
ADDR.=3 BYTES. THIS WORD AND LOW OF ‘TYPE’ ABOVE 
HIGH ADDRESS. M.S. BYTE 
2 7MEM. TYPE -BLKA2 
2 7MEM. LAST ADDRESS ,BLKA#2 
HIGH ADDRESS .M.S.BYTE 

3 INEM. TYPE /BLKAS 

3MEM.LAST ADDRESS .BLK#3 
HIGH ADDRESS .M.S.BYTE 
33 - TYPE BLKAG 

7MEM.LAST ADDRESS .BLK&4 
is INTERRUPT VEC TORA1 -BUS PRIORITY 

7 INTERRUPT VECTORS ORAH2BUS PRIORITY#2 
i: BASE ADDRESS OF EQUIPMENT UNDER TEST 
7 DEVICE MAP 
7 CONTROLLER DESCRIPTION WORDA1 
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-SBTTL ERROR POINTER TABLE 


:*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 
;*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 

: sLOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE - PERTINENT. 

; *NOTE1 IF SITEMB IS 0 THE ONLY PERTINENT DATA IS (SERRPC 

: *NOTE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 


EM oras TO THE ~~ MESSAGE 
DH ::POIN NTS TO THE DATA HEADER 
DT POINTS TO THE DATA 

OF ::POINTS TO THE DATA FORMAT 


tN ee a ee ee 
tk at 2 ot ot 2 8 1 ot 2 I I 
Wewvvvvurvuvuvuvwwy 


032502 032732 " —M1,DH2,DT2,DFO :M8026 NCV11 TIMEOUT 

032502 032732 EM2 ,DH2.DT2.DFO M8026 COMMAND-STATUS REGISTER ERROR 
032502 032732 EM3,DH2,DT2,DF0 37MB026 SPECIAL FUNCTION REGISTER ERROR 
032502 032732 EM4 .DH2,DT2, DFO M8026 WORD COUNT REGISTER ERROR 

032502 032732 EMS ,DH2,.DT2,DFO M8026 BUS ADDRESS REGISTER ERROR 

032502 032732 EM6 ,DH2,.DT2,DFO M8026 OFFSET REGISTER ERROR 

032502 032732 EM7 ,DH2,DT2,DFO 7MB8026 DUAL REGISTER SELECTION ERROR 
032502 032732 EM10,DH2,DT2,DFO 7M8026-M8036 LOW 16 BIT Z COUNT ERROR 
032502 032732 EM11,DH2,DT2,DFO :M8026-M8036 HIGH 16 BIT Z COUNT ERROR 
032502 032732 EM12,DH2,DT2, DFO M8026 2 COUNT STATUS ERROR 

032502 032732 EM13,DH2,DT2,DFO 38026 Z COUNT INTERRUPT ERROR 

032502 032732 EM14 ,DH2,DT2,DF0 : JOYSTICK STATUS ERROR 

032502 032732 EM15..DH2,DT2,DFO : JOYSTICK DATA ERROR 

032502 032732 EM16,DH2,DT2,DFO ; DATA INCREMENT ERROR 

032502 032732 EM17,DH2.DT2,DFO : DATA DECREMENT ERROR 

032502 032732 EM20,DH2,DT2, DFO 3M8026-M8036 MATRIX MODE ADDRESS MAKER DATA ERROR 
032502 032732 EM21,DH2,DT2, DFO 38026 LIST MODE ADDRESS MAKER DATA ERROR 
032502 032732 EM22.DH2,DT2,DFO 38026 LIST MODE TRANSFER BUS ADDRESS ERROR 
032502 032732 EM23,DH2,DT2, DFO M8026 LIST MODE TRANSFER WORD COUNT ERROR 
032502 032732 EM24 ,DH2,DT2,DFO M8026 LIST MODE TRANSFER OFFSET ERROR 
032502 032732 EM25 ,DH2,DT2, DFO 38026 TIMEOUT STATUS ERROR 


54 
35 
3% 
37 
38 
39 
40 
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a 032502 032732 EM26,DH2,DT2,DFO 3M8026 TIMEOUT INTERRUPT ERROR 
032502 032732 EM27 ,DH2,DT2,DFO 3M8026 SET ‘EVENT'’ OR ''TIME’’ DATA ERROR 
0 batts: 032502 032732 EM30 ,DH2,DT2,DF0 M8026 CELL INCREMENT DATA ERROR 
032502 032732 EM31,DH2,DT2,DFO 3M8026 CELL OVERFLOW STATUS ERROR 
032502 032732 EM32 ,DH2,DT2,DFO 3M8026 CELL OVERFLOW INTERRUPT ERROR 
032526 032744 EM33,DH3,DT3,DFO 3™8026 MATRIX MODE ADDRESS MUX ERROR 
032502 032732 EM34 ,DH2,DT2,DFO 348026 ‘'TESTX’’ FUNCTION ERROR 
032561 032760 EMS35 ,DH4 ,DT4 DFO 348026 DATA ERROR WHEN TRANSFERING TO EXTENDED MEMORY 
032502 032732 EM36 ,DH2,DT2,0F 0 M8026 LIST MODE TRANSFER STATUS ERROR 
9 032526 032744 EM37,DH3,DT3,DFO 3M8026 LIST MODE TRANSFER DATA ERROR 
oa 032502 032732 EM40 ,DH2,DT2,DFO 3 JUMPER-M8026-M7952 “EVENT’’ OR ‘'TIME’’ MARK ERROR 
8 367 032467 032776 EM41,DH1,DT5 DFO 3M7952 CLOCK TIMEOUT 
Beene! 032467 032724 EM42,DH1,DT1,DFO 3M8217 INTERRUPT LEVEL ERROR 
Di11 BLASTER COMM. ADDRESSES (THE OPERATOR MUST CHANGE IF DIFFERENT) 
176510 bricsr: 176510 ; INPUT STATUS REG. 
DLIBD: 176512 : INPUT _DATA 
DLOCSR: 176514 ZOUTPUT STATUS 
DLODB: 176516 OUTPUT DATA 
:VSVO1 ADDRESSES (THE OPERATOR MUST CHANGE IF DIFFERENT) 
VTCHAR: 172600 CHAR. STATUS 


zMAP STATUS 


KNOWN GOOD D/A STATUS 


68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
BS 
85 
86 
87 
88 


176426 
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90 3KWV11 PROGRAM GENERATED ADDRESSES (THE OPER. ONLY HAS TO CHANGE ‘S$CDW1') 


91 
92 1 zKWV11 STATUS REGISTER 


KWCSR: ACDW 
93 KWCSR1: ACDW1+1 3KWV11 STATUS REG. HIGH BYTE 
KWPSR: ACDW1+2 3KWV11 PRESET REGISTER 


3NCV11 PROGRAM GENERATER ADDRESSES (THE OPER. ONLY HAS TO CHANGE ‘S$BASE") 


ABAS 
ABAS 
;NCV11 PROGRAM GENERATED VECTORS (THE OPER. ONLY HAS TO CHANGE LOW 9 BITS OF ‘SVECT1") 
VECTAO: 
VECTA1: 
VECTBO: 
VECTB1: 
3NCV11 PROGRAM GENERATED BR LEVEL (THE OPER. ONLY HAS TO CHANGE TOP 3 BITS OF ‘S$VECT1") 


7BR LEVEL 6 


CLRWCO=81T14 


REDJOY=81T0 
MORTST=0 ;DEFINE TO RESTORE TEST CODE 


UBASVVVRGRUSLSSoOISRARAVSSSBLKGRAGLS SELES 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


Ww 
W 
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/RTRT: INC AGAN SET RESTART FLAG 
TESTER: INC SET FLAG INDICATING OPTION AREA MODE 
CLR AGAN 


= 
&- 


BR 
BEGIN: CLR 
CLR CLEAR FLAG INDIC. OPTION TEST AREA MODE 


RTRTA: 

-SBTTL_ INITIALIZE THE COMMON TAGS 

3:CLEAR THE COMMON TAGS (SCMTAG) AREA 
#SCMTAG RG 3sFIRST LOCATION TO BE CLEARED 

CLR d+ " 2sCLEAR MEMORY LOCATION 


"3300 BACK IF NO 
T:SETUP THE STACK POINTER 


OTVEC 3750t VECTOR FOR SCOPE ROUTINE 


pei or EMT VECTOR FOR ERROR ROUTINE 
wsTRAe RIVeLse earvecee :iLEvEL 7 VECTOR FOR TRAP CALLS 
mupvecse: (EVEL 7 FAILURE VECTOR 
#340 OabeRVEC SS 3 LEVEL L 7 
SENDCT SEOPCT 3: SETUP =PROGRAM COUNTER 
STIMES i SINITIALIZE MPBER OF ITERATIONS 
SCAPE CAPE ON ERROR ADDRESS 


sages 
. 


73 INITIALI 


so Gat Heese 


FAIRRYRKENTRS 
EE EISAEEELELEEE, 


0021 
0021 
0031 
0021 
0021 
0021 
0021 
0021 
0021 


7 
38 
>> 


- 


83 A3eSss 


65$ 
#65$, (SP) ?2SET UP FOR TRAP RETURN 
yisPOINT TO SOFTWARE SwR 
mDIPREG.D DISPLA 
+, @WERRVEC ” RESTORE ERROR VECTOR 


SPASS ::CLEAR PASS COUNT 
MAPTSIZE.SENVM ;;TEST USER SIZE UNDER APT 
6 NON- AP 


23 YES.USE T SWITCH 
MSSUREG , SWR 32NO,USE APT SWITCH REGISTER 


» 
“4 
bane 


ie Bes 


gRee 222 








N 
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C2NCCB.P11 31-AUG- :21 TYPE PROGRAM NAME SEQ 0026 
149 .SBTTL _TYPE PROGRAM NAME 
(1) >: TYPE THE NAME OF THE PROGRAM IF FIRST PASS 
(1) 002314 005227 177777 INC #1 :FIRST TIME? 
(1) 002 001044 BNE 68$ [BRANCH IF NO 
(1) 922757 030166 000042 CMP ASENDAD , 0462 ttACT<-11? 
(1) 1440 BEG 68s 3 3BRANCH IF_YES 
(1) 104401 002400 TYPE “TYPE ASCIZ STRING 
(2) - ,SBTTL Ger veut” FOR SOF TWARE suiTcy REGISTER 
(2) 005737 000042 ar42 :ZARE WE RUNNING UNDER XXDP/ACT? 
(2) 991012 ove Os BRANCH IF Y 
(2) 1 001214 000001 SENV.#1 SCARE WE RUNNING UNDER APT? 
(3) 5¢ 901406 BEQ + BRANCH IF YES 
(2) 001140 000176 SUR A#SWREG T:SOFTWARE SWITCH REG SELECTED? 
(2) 1005 BNE 71$ BRANCH IF NO 
(2) 1 GTSWR *:GET SOFT-SWR SETTINGS 
(2) 00040 BR 71$ 
(2) 902570 112737 000001 001134 708: MOVB #1, SAUTOB z2SET AUTO=MODE INDICATOR 
(1) 002376 000415 BR 68% :GET OVER THE ASCIZ 
(1) ::698: .ASCIZ <CRLF>#CZNCCB NCVI1 DIAGNOSTICA<CRLF> 
(1) 002432 68s: 
150 .SBTTL PRIME THE NCV11 ADDRESSES FROM THE DEFAULT VALUES 
151 002432 112737 000103 052410 MOVB ss #"CLRUNIT ZLOAD ‘CONTROL'’ SECTION BUS TRAP FLAG 
152 002640 012737 003212 000004 MOV WBUSTRP , AWERRVEC "LOAD BUS TRAP RETURN ADDRESS 
153 002446 012700 001746 MOV #CSR,RO :GET ADDRESS POI 
154 002452 1 001250 MOV R1 [GET DEFAULT ADDRES 
155 002456 010120 1$ MOV R1, (RO)+ ; AN VALUE 
156 002460 701 ADD #2,R1 THE VALUE 
157 002664 022700 001766 CMP #CSRHB. [TEST IF DONE 
158 002470 001372 BNE 1$ [BR IF NOT 
159 002472 013710 001250 MOV S$BASE , (RO) [LOAD ODD BYTE 
160 902676 20 INC (RO) + ; SSES 
161 013710 001250 MOV (RO 
162 0025046 ADD #11, (RO)+ : 
163 002510 013701 001244 MOV $VECT1,R1 3GET DEFAULT VECTOR 
164 002514 0101 MOV R1,R2 : 
165 16 SWAB TEXCHANGE BYTES 
166 177437 BIC #177637 ,R2 STRIP. OFF ALL BUT BR LEVEL BITS 
167 01 002002 MOV R2,BRLEV SSAVE FOR USE LATER 
168 4 1 160000 BIC #1 RI ;CLEAR OFF BR LEVEL 
169 002534 010120 2s MOV R1, (RO)+ “LOAD VECTOR 
170 002536 005721 TST (Ri)+ [BUMP THE VALUE 
171 002540 o01503 002002 ow FNECTB1#2.R0 [TEST IF DONE 
158 Oo9se¢ 1343 254 001740 MOV $CDW1.KWCSR :GET CLOCK ADDRESS 
174 54 013737 001740 001742 MOV KWCSR.KWCSR1 SET CLOCK HIGH BYTE ADDR. 
175 002562 013737 001740 001744 MOV KWCSR.KWPSR [SET CLOCK PRESET ADDRESS 
176 002570 005237 001742 INC KwCSR1 
177 002574 737 001744 ADD #2, KWPSR 
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204 
20 
206 
20 
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050032 
001134 
177777 


052410 
000040 
000042 
000101 


003300 
050024 


000102 
042272 
000104 
050022 
043546 
009106 
177777 


050024 
000124 


042020 
050024 
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052410 
052411 
052410 


052410 


052410 


052410 
050022 


052410 


052410 


052410 


052410 


052410 
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DIAGNOSTIC IDENTIFICATION TYPEOUT 


-SBTTL DIAGNOSTIC sata? ak TYPEOUT 
TST AGAN TEST IF RESTART 


BR IF YES 
: TEST va 
“INDICATE TO RUN DIFLIN IN CHAIN MODE 


YES; RUN LOGIC AND DIFLIN TESTS 
:TEST IF OPTION CHECKOUT MODE 


;TELL OPERATOR ABOUT OPTION AREA TESTS 
;TELL OPERATOR ABOUT THE TEST 


;PRINT ‘DOT*’ 
READ _THE RESPONSE 
a(SP)+,RUNIT GET THE CHARACTER 

0 ,RUNIT ENSURE UPPER CASE 

FIX ASCII Ye 
[DETERMINE IF AN A 
;BR IF NOT 
RUN _SITE ADJUSTMENT LOOP 
TEST IF ” THE TESTER 


;BR_IF NO 
DETERMINE IF AN B 
BR IF NOT 


;RUN THE BLASTER iit 
;DETERMINE IF AN D 


BR IF NOT 
Z INDICATE DIFLIN IS NOT TO BE RUN 
AND RUN IT 
DETERMINE IF AN F 
;BR IF NOT 
#-1 ,RUNDIF ; INDICATE RUN DIFLIN AFTER THE LOGIC TEST 
LOGIC SAND RUN LOGIC TEST 
es TEST IF IF abnor CHECKOUT MODE 
eae: :DETERAIN IF AN I 


NOT 
POT IME [RUN IN-HOUSE Or teens LOOP 
 eamaedd ;DETERMINE IF AN 


[BR IF NOT 
RUND I F : INDICATE NO DIFLIN 
LOGIC 
#°H,RUNIT a IF ANH 
10$ ‘BR IF 


BEGIN 3 START OVER 
#37 ,RUNIT ; DETERMINE IF AN *°?"' 
11$ IF NOT 


BEGIN :START OVER 
WF MODE 3 OPTION CHECKOUT MODE 


12$ ;BR_IF NO 
#°T ,RUNIT 4A ge IF ANT 
12$ BR IF 

BTALK KEYBOARD LOOP WITH BLASTER 
WF MODE TEST IF OPTION CHECKOUT MODE 


LIST 
KEYBOARD COMMAND DECODER™ 
TYPE, LIST1 


SEQ 0027 
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NCV11 


CZNCCB.P11 


235 
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000103 


042754 
000117 


003242 
000123 


000115 


000377 
043546 


MACY11 ee Pate 
E YBOARD 


052410 


052410 


052410 


052410 
050022 


13$: 


14$: 


15$: 
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COMMAND DECO 


13$ 
CMPB #'°C,RUNIT 
13$ 


JMP PBLAST 
CMPB #'O,RUNIT 
14$ 


JMP XTTY 
CMPB #'S,RUNIT 
i5$ 


GTSWR 

BR RBE GO 

CMPS #°M,RUNIT 
BNE FATFNG 

MOV #377 ,RUND IF 
JMP DIFLIN 


;BR_IF 
DETERMINE IF AN C 
;RUN M8036 PROM hy prince CODE 
DETERMINE IF AN O 
BR IF NOT 
; CHANGE THE i ¢ tein 
; DETERMINE IF AN 
IF NOT 
GET Sk on REGISTER VALUE 


DETERMINE IF AN M 
;BR IF NOT 

; INDICATE DIFLIN WITH EXPAND REPORT 
[RUN DIF LIN 


SEQ 0028 


CZNCCB 
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052346 
175712 


052430 
002014 


052520 


C00002 
037356 
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003352 
003352 


040356 


BOARD COMMAND DECODER 


; THE OPERATOR SELECTED THE WRONG THING = THEY SOMETIME HAVE ‘FAT FINGERS" 
FATFNG: TYPE 


SQUES ;TYPE QUESTION MARK 
RBE GO 
;RETURN TO HERE i UNE XPECTECD BUS TRAP 
BUSTRP: TYPE, TALO REPORT FATAL TRAP TO THE OPERATOR 
MOY (SP) -(SP) GET TRAP ADDRESS 
1$: TST aSwR ; TEST IF HALT ON ERROR 
BPL 2$ ‘BR IF SET 
HALT ;FATAL BUS TRAP DETECTED 
2s: TYPE, RUNITA 
JMP RTRT ;RESTART 
_e TO INPUT NEW TTY ADDRESS ra THE OPERATOR 
KTTY TYPE, WARNO ;TELL THE OPERATOR THE RULES 
RDOCT sLISTEN TO THE OPERATOR 
MOV (SP)+,RO SREAD THEIR INPUT 
BEQ FATFNG BR IF JUST ‘‘CR’’ 
TST (RO) ADDRESS THE DEVICE AND CHECK BUS TRAP 
: IF NO BUS TRAP =- THEY MUST KNOW WHAT THEY ARE DOING 
MOV #$TKS,R1 ;GET POINTER 
1$: MOV RO, (Ri) + ;LOAD THE VALUE 
TST (RO) + ‘BUMP VALUE 
CMP R1,4$TKS+10 sTEST IF = ALL ADDRESSES 
BNE 1$ ‘BR IF 
JMP RTRTA sRETYPE THE HEADER AGAIN ON THE NEW TERMINAL 
;OPERATOR CHOSE THE FIELD ADJUSTMENT LOOP 
TFSITE: TYPE, PRIM6 TELL OPER. ABOUT A017 
TYPE, FIELDI SASK THE OPERATOR FOR INPUT Z MODE 
CLR INOUTZ ;DEFAULT TO USER SUPPLIED Z PULSES 
RDLIN [READ OPER. INPUT 
MOV a(SP)+,10$ 7GET CHAR 
BICB #40,10$ ; ENSURE UPPER nee 
CMPB #'y,10$ >TEST FOR <a INPU 
BNE 1$ :BR IF NOT ‘Y' 
MOV #2, INOUTZ :SET MAINT Z CONSTANT 
1$: JMP FSITE NOW DO THE LOOP 
10$: 0 
ADNOKT: 0 ;LAST ADDRESS WITHOUT M.M. OR XXDP 
NLSI11: 0 *NON-ZERO INDICATES LSI-11 PROCESSOR 


SEQ 0029 


E 
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CZNCCB.P11 31-AUG-79 11:21 KEYBOARD COMMAND DECODER SEQ 0030 

297 
298 003360 000005 LOGIC: RESET 
299 003362 005737 001202 TST $PASS : TEST IF FIRST PASS 

300 003366 001124 BNE TST] IF NOT 

301 003370 005737 050024 TST WF MODE : HECK IF ON TESTER 

302 003374 001402 BEQ 5$ ‘BR IF NOT 

303 003376 104401 052246 TYPE, PRIMG ; TELL OPERATOR CABLE MUST BE CONNECTED 
304 003402 005037 036122 5$: CLR $KT11 ‘INDICATE NO KT11 

305 003406 004737 036064 JSR PC, $SIZE :SIZE BASIC MEMORY SIZE 

003412 162737 001000 036402 SUB #1000, $LSTAD :PROTECT ABSLD 

307 003420 005737 000042 TST arg2 ‘TEST IF XXDP CHAIN MODE ? 

308 003424 001403 BEQ 1$ ‘BR IF NOT CHAIN MODE 

309 003426 162737 906200 036402 SUB #3200. ,$LSTAD ;LEAVE ROOM FOR XXDP MONITOR 
310 013737 036402 003354 1$: MOV $LSTAD,ADNOKT eng +? MEMORY STACE 

311 003442 012737 000200 036122 MOV #B81T7,$KT11 WITH M.M. 

312 003450 004737 036064 JSR PC,$SIZE “DETERMINE THE AMOUNT OF MEMORY 
313 003454 005737 036122 TST $kT11 ‘TEST IF KT11 IS HERE 

314 003460 10002 BPL 2$ [BR IF NOT 

315 003462 012737 172342 MOV #200,@4KIPART : 

316 003470 012737 077406 172302 MOV #77406, @AKIPDR1 

317 003476 012737 172344 MOV #400, @#K IPAR 

318 04 012737 077406 172304 MOV #77606, @#KIPDR2 

319 003512 012737 077406 172306 MOV #77606. @AKIPDR3 :4K, UP R/wW FOR 60000 

320 012737 172356 MOV #7600, a4KIPAR7 :1/0 PAGE MAP 

321 003526 012737 077406 172316 MOV #77406, @#K IPDR7 4K, UP, R/W FOR I/0 PAGE ACCESS 
32 105737 001134 2$: TSTB —- $AUTOB ;TEST IF AUTO MODE 

3 003540 001016 BNE 4$ : IF AUTO MODE 

324 003542 104401 052461 TYPE, MSGMEM TELL OPERATOR THE AMOUNT OF MEMORY 
325 003546 013700 036404 MOV $LSTBK.RO GET LAST GOOD BANK 

326 003552 006200 ASR RO 

327 003554 006200 ASR RO 

328 556 006200 ASR RO 

329 003560 006200 ASR RO 

330 003562 2 ASR RO 

331 003564 005200 INC RO : CONVERT 

332 003566 010046 MOV RO,-(SP) TYPE OUT DEC. VALUE 

333 003570 104405 TYPDS 

003572 104401 052501 TYPE, MSGK ;AND THEN TYPE OUT THE REMAINDER OF MEMORY MESSAGE 

335 003576 013737 000004 002004 4$: MOV @¥ERRVEC,$TEMP SAVE LOC 4 VALUE 

336 012737 003632 000004 MOV W3$,aMERRVEC  :LCAD LOC 4 

337 003612 005037 003356 CLR NLSI11 ‘INDICATE NOT A LSI-11 CPU 

338 003616 005037 177776 CLR PSW + SHOULD FAIL i’ LSI-11 

339 003622 013737 002004 000004 MOV STEMP, A#ERRVEC ;RESTORE LOC 4 VALUE 

340 003630 000403 BR TST1 ‘:BR IF TEST 

341 003632 005237 003356 3$: INC NLSI]11 ;SET AN LSI-11 FLAG 


3%42 003636 000002 RT] ; RETURN 
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012737 
013737 
000423 
022626 
104001 
000411 
022626 
104041 
012737 
013737 
000407 
013737 
000137 
000000 
000000 
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00000 
004016 


004016 
030100 


MACY11 


001160 
004016 
000004 


000004 


004020 
000004 


004020 
000004 


000004 
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10 
VERIFY THE 8 NCV11 AND 2 NCV11 CLOCK BUS ADDRESSES RESPOND 


5 RARER RERAREREEEREAAERRARRREERRERERRRRERRRERARERRRERARRRARERER 


VERIFY THE 8 NCV11 AND 2 NCV11 CLOCK BUS ADDRESSES RESPOND 


MARRABRAAAASAASLALASRALASARARARARSRARSARSRRRARARRARRARR RRR RR SAAR RDS SS | 


:*TEST 1 
1811: SCOPE 


T aKuP Pek 
TEMP FIX DIAG TO NOT USE CLOCK JUMPERS 
#1 ,DEADKW 


1$: CMP 


BR 
2$: CMP 


3$: MOV 


10$: 0 
DEADKW: 0 


#100, $TIMES 


@FERRVEC , 10$ 


eee 


@BAR1 
es ate 


10$ SWERRVEC 
TST 
(SP) +, (SP)+ 


3$ 
feats, 


#1 ,DEADKW 
108 ,awERRVEC 


10$ , A#ERRVE C 
$EOP 


3;D0 100 


ITERATIONS 

; SAVE BUS TRAP VECTOR 
[LOAD BUS TRAP VECTOR 
ADDRESS 


“THE 


SNCV11 


S ADDRESSES 
SLOAD NEW RETURN 


TEST CLOCK 
ADDRESSES 


; INDICATE NCV11 CLOCK IS NOT THERE 


RESTORE THE BUS TRAP VECTOR 


STA 
US TRAP WHEN. REFERENCING THE NCV1i 


;CLEAN THE STACK 

BUS TRAP WHEN REFERENCING THE NCV11 CLOCK 
: INDICATE yt CLOCK IS NOT THERE 
SRESTORE LOC 4 


RESTORE BUS TRAP VECTOR 
EXIT 


NON-ZERO SAYS NO NCV11 CLOCK 
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381 

(3) 

(3) 

(2) 004022 
(1) 004024 
382 004032 
383 004040 
384 

385 004046 
386 004054 
387 004 
388 004070 
389 004076 
390 0041 
391 004106 
392 

393 004110 
394 004114 
395 004122 
396 

397 

(3) 

(3) 

(2) 004124 
(1) 004126 
398 004134 
399 004142 
400 004144 
401 004152 
402 904160 
403 004166 
404 004170 
405 

406 

(3) 

(3) 

(2) 004172 
(1) 004174 
407 004 
408 004210 
409 004216 
410 004224 
411 004232 
412 004240 
413 004242 
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000200 
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004000 
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T2 FLOAT A 1 ACROSS 10 BITS OF THE COMMAND/STATUS REG. 


Sf RAAAAAAAAAAAAAAAAARAARARARARARAAAAAAARARARAERRARAAAARAARERANRRARES 


:*TEST 2 FLOAT A 1 ACROSS 10 BITS OF THE COMMAND/STATUS REG. 
'MARRBABRRARRAAASARALRSAASARASESRERRRRRRRARER RRR RR RR RAR AR RRR RR RAR RSS S SD 

+812: SCOPE 

MOV #100, STIMES 3;D0 100 ITERATIONS 

MOV #1$,$LPERR :LOAD LOOP ADDRESS 

MOV #B1T11,$TEMP ;LOAD INITIAL REG. VALUE 
1$: MOV STEMP,aCSR :LOAD CSR REG. 

MOV aCSR, $BDDAT READ CSR 

MOV STEMP,SGDDAT :LOAD EXPECTED 

BIS #8117, $GDDAT “FUDGE THE ‘READY'' BIT 

CMP SGDDAT , SBDDAT [COMPARE THE VALUES 

BEQ 2s ;:BR IF SAME 

ERROR 2 [UNEXPECTED VALUE IN THE CSR REGISTER 
2$: ASR STEMP ;TRY THE NEXT DATA BIT 

CMP #1, STEMP “TEST IF NOW BIT 0 

BNE 1$ :BR IF NOT 


SL RRA EAAARARAAEAERAAAAAA AERA ARAARARAERAAAEAAAAARAAERARRERERARHES 


S*TEST 3 VERIFY THAT “‘INI7** CLEARS THE CSR REGISTER 


CF RUA ARARAAAAERAAEAAARAAEEREERAEAARAARARARRRARAAAARRARAERAERAEARRER ER 


TST3: | SCOPE 

MOV #10,$TIMES :DO 10 ITERATIONS 

MOV #7776, aCSR :LOAD CSR REG. 

RESET ZINITILIZE THE REGISTER 

MOV #8117, $GDDAT LOAD EXPECTED VALUE 

MOV aCSR,$BDDAT “READ CSR REG. 

CMP S$GDDAT , SBDDAT > COMPARE THE VALUES 

BEQ TST4 ::BR IF EQUAL 

ERROR 2 :'BUS INIT’ FAILED TO CLEAR CSR REG. 
LPR ERER EEA REA E AERA RERE ERE AERA AREA EREERARERAREEERERERREEE 
S*TEST 4 VERIFY THAT ‘'CLEAR ALL’ CLEARS THE CSR REGISTER 
FLERE AAA EAR AA EEE EEAR REAR EEREAAEEEARAREAERAEERER EH 
TST4: SCOPE 

MOV #10,$TIMES ; D0 10 ITERATIONS 

MOV #7776, aCSR LOAD CSR REG. 

MOV #CLRALL,a@SFR ‘GENERATE “CLR ALL L 

MOV #B1T7,$GDDAT : LOAD EXPECTED ae 

MOV aCSR,$BDDAT “READ THE CSR REG. 

CMP SGDDAT , $BDDAT > COMPARE VALUES 

BEQ TST5 ::BR IF SAME 

ERROR 2 CLR ALL L'’ FAILED TO CLEAR CSR REG. 


SEQ 0032 


H 
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CZNCCB.P11 31-AUG-79 11:21 15 VERIFY LOW BYTE OPERATION OF THE ‘'CSR'’ REGISTER SEQ 0033 


MADRBARAAAALALALALALASASALASA LALA LALA SEARS AAR RRR RR RRR A AAR A RAD DD S S 


SRTEST 5 VERIFY LOW BYTE OPERATION OF THE ‘‘CSR’’ REGISTER 


ESS TIICIITITITICS ii iteri titi ie iii ite rit titi ite tei errr 


TSTS: 


#100, STIMES 3;D0 100 ITERATIONS 
aCSR ;LOAD CSR REGISTER 
;LOAD EXPECTED VALUE 
CLEAR LOW BYTE 
P AT ;READ STATUS REG. 
aan > COMPARE VALUES 


;7;BR IF SAME 
2 ;CLEARING LOW BYTE OF THE CSR CHANGED THE HIGH B 
175424 : MOV #3636,aCSR = LOAD CSR REGISTER 
001124 #236, $GDDAT ;LOAD EXPECTED VALUE 
aCSRHB CLEAR ork BYTE OF THE CSR 
001126 aCSR,$8DDAT READ STATUS 
001126 SGDDAT , SBDDAT ; COMPARE VALUES 
TST6 77BR IS SAME 
2 ;CLEARING HIGH BYTE OF CSR CHANGED THE LOW BYTE 
J TRAE ERR EKEERERREREEEREEREREERARRRERRREEREE EEE 
:*TEST 6 FLOAT A 1 ACROSS 4 BITS OF THE SPECIAL FUNCTION REGISTER 
J LARA AERRREREREKEEREKEEEERERREEEERARAERRRAEEKEREERERERREH 
TST6: 
001110 #1$,$LPERR ;LOAD LOOP ADDRESS 
012737 0000 002004 #BITS,STEMP LOAD INITIAL REG. VALUE 


013777 002004 175356 1$: STEMP ,aSFR ; LOAD ote REG. 
aSFR,S$BDDAT TREAD SFR 
STEMP ,SGDDAT ;LOAD EXPECTED 
SGDDAT , SBDDAT ; COMPARE THE VALUES 
$ 72BR IF SAME 
3 ;UNEXPECTED VALUE IN THE SFR REGISTER 
2s: STEMP 2 TRY THE NEXT DATA BIT 
#1,$TEMP TEST IF NOW BIT 0 
1$ ‘BR IF NOT 
RRA AEAAAAAAAKAAAAAKEAAAEAAEKEAARAAAARAEAARAARAAAAAREAARAARKEARAREEEREK 


:*TEST 7 VERIFY THAT CLEARING HIGH BYTE OF SFR DOES NOT CLEAR LOW BYTE 


J TARA AAR REAR REEEAREEKEAEREEREREREREEREEREREREREREREE EEE 


TST7: 
#10, $TIMES 3:D0 10 ITERATIONS 
LOAD THE S.F. REGISTER 
;LOAD THE EXPECTED VALUE 
* CLEAR HIGH BYTE OF S.F. REG. 
. [READ THE REGISTER 
SGDDAT , SB8DDAT ; COMPARE THE VALUES 
TST10 ;7BR IF SAME 
3 ;CLEARING HIGH BYTE OF CSR REG. CHANGED THE LOW 





n 
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PAGE 13 
CZNCCB.P11 31-AUG-79 11:21 T10 VERIFY THAT “INIT'’ CLEARS THE SFR REGISTER SEQ 003% 
455 JL ARARARRAREEAERAEREEAEEREREREEREAKERRERRERARRREREREERRRERREREREHEEE 
(3) :*TEST 10 VERIFY THAT “‘INIT'’ CLEARS THE SFR REGISTER 
(3) FERRARA AARARRAREEAEERAEERREREERERRREREREERRAREREREEREHERERREEERE 
(2) 004512 000004 T5110: SCOPE 
(1) 006514 012737 000010 001160 MOV #10, STIMES 7:D0 10 ITERATIONS 
456 904342 012777 000016 175226 MOV #16, aSFR iL FR REG. 
457 0045 RESET ‘INITILIZE THE REGISTER 
458 004532 005037 001124 CLR SGDDAT SLOAD EXPECTED 
459 006536 017737 175214 001126 MOV aSFR,$BDDAT “READ SFR REG. 
460 004544 001401 BEQ TST11 ::BR IF EQUAL 
461 004546 104003 ERROR 3 s'BUS INIT’' FAILED TO CLEAR SFR REG. 
463 J LARA EEERREEE RARER AERERAARAEREEEERERRAERRERERRREREKE 
(3) S*TEST 11 VERIFY THAT ‘CLEAR ALL’’ CLEARS THE SFR REGISTER 
(3) 5 LA AARRAAAAREE EERE EERERERERERRERREERAEARERERRAEERERRRERRRRRR EH 
(2) 004550 T$T11: SCOPE 
(1) 006552 012737 000010 001160 MOV #10, STIMES ::D0 10 ITERATIONS 
464 006560 012777 000016 175170 MOV #16. aSFR SLOAD SFR REG. 
465 004566 052777 004000 175162 BIS #CLRALL, aSFR 'GENERATE '‘CLR ALL L"' 
466 004574 005037 001124 CLR SGDDAT [LOAD EXPECTED VALUE 
467 004600 017737 175152 001126 MOV a@SFR,$BDDAT ZREAD THE SFR REG. 
468 004606 001401 BEQ TST12 ::BR IF § 
469 004610 104003 ERROR 3 : “CER ALL L'' FAILED TO CLEAR SFR REG. 


CZNCCB NCV11 
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S835 S88 


00 
00 
00 
17 
17 
00 
00 


FLOAT A 1 ACROSS THE WORD COUNT REGISTER 


Ss REAAAAAAAAAAEAAAAAAAAAAAEEAAARRAAARAEAAAAREAAEREERAERAKERKHKEKEKE 


TEST 12 FLOAT A 1 ACROSS THE WORD COUNT REGISTER 


© RARAAAAAAAAAEAAAAKRAAARAAAAARRARERAREAARAERAERAAARRERREKERKEEREKREKE 


T§T12: 
#100, $TIMES ::D0 100 ITERATIONS 
#8176, $GDDAT zLOAD EXPECTED VALUE 
#1$,$LPERR [LOAD LOOP ADDRESS ON ERROR 


ACLRALL ,@SFR sRESET THE DEVICE 
;LOAD WORD COUNT 


SGDDAT ,awCR : 
sREAD WORD COUNT 
; COMPARE VALUES 


3;zWORD COUNT REG. IN ERROR 


2s: CHANGE THE DATA 

7;BR IF MORE DATA TO LOAD 
LER RR RARER ARERR AR AREER ERRERERAR ERATE 
:*TEST 13 FLOAT A 1 ACROSS THE BUS ADDRESS REGISTER 


fF RAARRARAAAAAERREREERRERREREEEKRREEREREREREAERERAEREAEERRRRRERREERE EH 


TST13: 

#100, STIMES 3:D0 100 ITERATIONS 

#8170, $GDDAT ;LOAD EXPECTED VALUE 
1$,$LPERR ;LOAD LOOP ADDRESS ON ERROR 


ACLRALL ,@SFR sRESET THE DEVICE 
SGDDAT , @BAR LOAD BUS ADDRESS 
@BAR , SBDDAT READ BUS ADDRE 
SGDDAT , SB8DDAT ; COMPARE VALUES 
2s :3:BR IF SAME 

5 BUS ADDRESS REG. IN ERROR 


2s: SGDDAT > CHANGE THE DATA 

1$ 7:BR IF MORE DATA TO LOAD 
LL RRR ARR AER RRR ERR ERAER ARERR AR TRAE ARERR EEE 
z*TEST 14 FLOAT A 1 ACROSS THE OFFSET REGISTER 


& * RRAAAAAEAAEREAARAAEAAEAREREEARRAKRAERAARAAAEAEAREERARARAEERAERREREREEKK 


TST14: 
#100, STIMES ::D0 100 ITERATIONS 
#8176, $GDDAT ;LOAD EXPECTED VALUE 
#1$,$LPERR [LOAD LOOP ADDRESS ON ERROR 


#CLRALL.@SFR RESET THE DEVICE 
SGDDAT , aOF F sLOAD OFFSET ‘‘A’’ 

@OF F , SBDDAT sREAD OFFSET 

SGDDAT , SB8DDAT sCOMPARE VALUES 

2s 77BR IF SAME 

6 sOFFSET REG. IN ERROR 


$GDDAT CHANGE THE DATA 
1$ BR IF MORE DATA TO LOAD 


—_" 


“7 


SEQ 0035 
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000036 
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VERIFY NO DUAL REGISTER SELECTION 


J EARAAAAAAAAAAAAAAAAAAAA AAA ERERAEREEEKREEERERR ERE EE 


VERIFY NO DUAL REGISTER SELECTION 


S REAAAAAAAAAAAAAARARAARARAEAERAAAERRAKREAEARRKRAEREEAERAEEERERERERERERE 


: STEST 15 
T15: SCOPE 


STIMES 


MOV 
;LOAD DIFFERENT Mien INTO 


é 
z 
é 


4$: 


5$: 


§35358 


Tse tec ban hse be 


nin , a0F F 
‘ -aucR 
asian 


97 a@csR +L 
ACH REGISTER AND CHECK THE VALUE 
#11111, $GDDAT 


@OFF ,SADDA 
SGDDAT , SBDDAT 
4s 

#22222 ,,$GDDAT 
@wCR,$BDDAT 
SGDDAT, SBDDAT 


#33333 .$GDDAT 
@BAR , SBDDAT 
pees 2 S8DDAT 


7 
#CLRALL ,@SFR 


3:D0 10 ITERATIONS 
THE 


WCR, BAR AND OFF REGISTERS 

CLEAR THE DEVICE 

LOAD OFFSET REGISTER 

LOAD W.C. REGISTER 

LOAD B.A. REGISTER 

[LOAD SPECIAL FUNCTION REGISTER 
OAD COMMAND/STATUS REGISTER 


;LOAD EXPECTED VALUE 
TREAD A OFFSET REG. 
* COMPARE 
727BR IF 
;DUAL ADDRESS ERROR 
;LOAD EXPECTED VALUE 
sREAD W.C. REG. 
; COMPARE 
: BR IF SAME 
;DUAL ADDRESS ERROR 
;LOAD EXPECTED VLAUE 
sREAD B.A. REG. 
>; COMPARE 
;7BR IF 
;DUAL ADDRESS ERROR 
;LOAD EXPECTED VALUE 
;READ SPECIAL FUNCTION REG 
OMPARE 


AME 

DUAL ADDRESS gor 

; LOAD EXPECTED VALUE 

He BS enced sna REGISTER 


;7BR IF SAME 
;DUAL ADDRESS ERROR 
;CLEAR THE DEVICE 


SEQ 0036 


CZNCCB NCV11 __ DI 
CZNCCB.P11 31-AUG-79 
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:21 T16 


VERIFY ‘‘CLR ALL’’ CLEARS THE EXTENDED OFFSET BITS SEQ 0037 


“4 
he 
Se 


S48 FRAAARARAAAAEAEARAEEEERAREERREKREREAEREREERAEREEEARERERRARREEERRE EHH 
(3) :STEST 16 VERIFY ''CLR ALL'’ CLEARS THE EXTENDED OFFSET BITS 
(3) MeAASAARAAAAAAALALALESLEASLALE SESE SES ER ERR ER RRR RRR RRR RRR RRR ARR SASS 
(2) 005314 T8116: SCOPE 
(1) 005316 012737 000010 001160 MOV #10, $TIMES ::D0 10 ITERATIONS 
549 005 7 001124 CLR SGDDAT 3CLEAR EXPECTED VALUE 
550 005 01 000 174420 MOV #CLRALL,@SFR :CLEAR THE DEVICE 
551 005 012777 3 174404 MOV #3, @OFF ‘LOAD EXTENDED OFFSET REGISTER 
238 005 012777 004000 174404 MOV #CLRALL asFR :CLEAR THE EXTENDED OFFSET REG.'S 
553 005352 01 174372 001126 MOV @OF F , $BDDAT SREAD EXTENDED OFFSET REG. 
554 005360 001401 BEQ TST1? ::BR IF CLEARED 
229 005362 104006 ERROR 6 CLEAR ALL FAILED TO CLEAR EXTENDED OFFSET REGIS 
557 FRR REE RE REE EEEE REE EERE REE RE RE REREREEREEEEEEREE 
(3) ATEST 17 TEST THE ‘'ACTIVE’’ FLOP CAN SET AND CLEAR 
(3) FARRAR EEEREEREREEEEEREKEEEEEERERAEEEEEREEREERER EH 
(2) 005364 000004 tsT17: SCOPE 
558 005366 012777 174362 MOV #CLRALL.@SFR sCLEAR THE DEVICE 
559 005374 05 000010 174354 BIS #TSTDMA, aSFR :SET THE ‘TEST DMA’’ TO PREVNT DATA TRANSFERS 
560 005402 000240 NOP 
561 005404 000240 NOP 
266 005406 000240 NOP 
005410 052777 000022 174330 BIS #B1T4'BIT1,aCSR zSET ‘MATRIX MODE'' AND ‘BYTE'’ MODE 
564 zNOW SET THE ‘‘ACTIVE’’ FLOP AND VERIFY “INTERFACE IDLE’' GOES sr* 
565 005416 012737 000022 001124 MOV #81T4!BIT1,$GDDAT LOAD EXPECTED VALUE 
566 Gosses 052777 000001 174314 BIS #B1T0, acsR SSET “'ACTIVE’' TO A 1 
567 0054 017737 174310 001126 MOV acsr, $BDDAT ;READ STATUS 
568 005440 023737 001124 001126 CMP SGDDAT , $B8DDAT COMPARE VALUES 
569 005446 001404 BEQ 1$ 7:BR IF EXPECTED 
570 005450 052777 000400 174300 BIS #ENDDMA, aSFR :STOP DMA IF POSSIBLE 
571 005456 104002 ERROR 2 ‘ACTIVE'' FLOP FAILED TO SET 
572 -POKE THE the DMA'’ SIGNAL AND VERIFY ‘ACTIVE’ CLEARS 
573 005460 000400 174270 is: BIS MENDDMA , aSFR 7SEND ‘END DMA’ SIGNAL 
574 005466 012737 000222 001124 MOV #8117 :B1T4:BIT1, SGDDAT :SET “‘INTERFACE IDLE’’ INTO EXPECTED 
575 005474 017737 174246 001126 MOV acSR,$BDDAT :READ STATUS 
576 005502 7 001124 001126 CMP $GDDAT, SBDDAT ; COMPARE 
577 005510 001401 BEQ 2$ 7 ;BR IF Same 
578 005512 104002 ERROR 2 "END DMA’ AGAIN FAILED TO CLEAR ‘‘ACTIVE'’ FLOP 
579 :POKE "ENABLE DMA’' AND THEN ISSUE ‘‘CLR ail” SIGNAL T 
580 : ENSURE THE "‘ACTIVE'’ FLOP CLEARS 
581 005514 012737 000200 001124 2s: #8117, $GDDAT :LOAD EXPECTED 
582 28 2 000001 174216 Bis #31T0.aCSR "ENABLE DMA"’ 
583 005530 052777 004000 1742 BIS #CLRALL ,@SFR =GENERATE ‘CLR ALL*' 
584 005536 01 174204 001126 MOV acCSR,$BDDAT SREAD STATUS 
585 544 02 001124 001126 CMP SGDDAT, SBDDAT * COMPARE 
586 005552 001401 BEQ TST20 :7BR IF SAME 
587 54 104001 ERROR 1 :'CLR ALL'' FAILED TO CLEAR ‘‘ACTIVE’’ FLOPS 


M 
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CZNCCB.P11 31-AUG-79 11:21 T20 VERIFY Z INPUTS CAUSE THE LOW 8 BITS OF 32 BIT COUNTER TO CHANGEIN MATRIX SEQ 0038 


MR AAARARAAAAAAALALALLLEAALALAR RARER RASA RAR RRR RAR R RRR A RAR RADE SS 


TST20: 
#100, $TIMES 3:D0 100 ITERATIONS 
#CLRALL ,@SFR ;CLEAR THE DEVICE 
#TSTDMA,@SFR ;SET TEST DMA FLOP 
#0,awCR LOAD W.C. REG 
#0, @BAR ;LOAD B.A. REG 
#81T4!BIT1,aCSR sENTER MATRIX MODE 
#B81T0,aCSR 3GO ‘‘ACTIVE'' 
AMTESTZ,@SFR sENABLE ‘TEST Z°* PULSES 
MTESTZ,@SFR ;DISABLE ‘TEST 2°* PULSES 
#1 , SGDDAT LOAD EXPECTED 
@BAR , SBDDAT ;READ LOW 16 BITS 

NON-ZERO 


1 sig 

a 327 INPUT FAILED TO CAUSE THE LOW BYTE OF 32 BIT 
awCR,$BDDAT ;READ HIGH 16 BITS 

2$ CLEARED 


11 HIGH 16 BIS CHANGED IN ERROR 
#B1T4,$GDDAT sLOAD EXPECTED 

@CSR,$BDDAT sREAD STATUS 

#81114, $BDDAT sTEST IF ‘CELL OVERFLOW’ 

TST21 3;BR IF CORRECT 

12 :"‘CELL OVERFLOW’ FLOP SET IN ERROR 


MRA ASALASASLEALALAASLALARARAL ALARA SSAA RAR R RR RRR RAS RSD SDD 


SeTEST 21 VERIFY 2 INPUTS CAUSE THE LOW 16 BITS OF 32 BIT COUNTER TO CHANGE 


RE REAKEEAEAEREEKERERREEERERKEKEKEEEKEKEEEKEEEKAEAEREERAAREEAEREREREKEEREREEE 


TST21: 
#100, $TIMES ::DO0 100 ITERATIONS 
#CLRALL, a@SFR :CLEAR THE DEVICE 
#TSTDMA.aSFR [SET TEST DMA FLOP 
awcR *LOAD W.C. REG 
#376, @BAR [LOAD B.A. REG 
#81T4'BIT1,aCSR SENTER MATRIX MODE 
1T0,aCSR GO ACTIVE’ 
TENABLE ‘TEST 2°' PULSES 
‘DISABLE ‘TEST 2°’ PULSES 
T8,$GD *LOAD EXPECTED 
@BAR , $BDDAT [READ LOW 16 BITS 
$BDDAT+1 ‘TEST HIGH BYTE 
1$ ‘BR IF NON-ZERO 
10 ‘Z INPUT FAILED TO CAUSE THE HIGH BYTE OF THE LO 


ST22 
#0, $GDDAT LOAD EXPECTED 
awCR ,$BDDAT READ HIGH 16 BITS 
2$ $2 CLEARED 
11 HIGH 16 BITS CHANGED IN ERROR 
#B1T4 ,SGDDAT LOAD EXPECTED 
aCSR,$BDDAT READ STATUS 
#B1T14,$BDDAT sTEST IF ‘CELL OVERFLOW’ 
TST22 ;;BR IF CORRECT 
12 7CELL OVERFLOW’* FLOP SET IN ERROR 
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CZNCCB.P11 31-AUG-79 11:21 T22 VERIFY Z INPUTS CAUSE THE LOW 24 BITS OF 32 BIT COUNTER TO CHANGE SEQ 0039 


FERRARA EERE EERE AREER REE KREEEREEEERAERREREERREREE 


TRTEST 22 VERIFY Z INPUTS CAUSE THE LOW 24 BITS OF 32 BIT COUNTER TO CHANGE 


+ RR RRR RERARARAARRAARARREERARAAAAAAA AAA Re 


TST22: 

00,$TIMES 37;D0 100 ITERATIONS 
#CLRALL ,@SFR ;CLEAR THE DEVICE 
#TSTDMA,@SFR sSET TEST DMA FLOP 

awCR SLOAD W.C. REG 

,~@BAR ;LOAD B.A. REG 

weiteBiTl. acsR s ENTER MATRIX MODE 
#81T0,aCSR G0 ° ‘ACT veE** 
ATESTZ, aSFR 7 ENABLE “TEST 7’ PULSES 
#TESTZ, >t ie [DISABLE “TEST Z'* PULSES 
#1,$GDDA ;LOAD EXPECTED 
aucR. SCRDDAT :READ HIGH 16 BITS 


2 :BR I 
11 ;LOW BYTE OF THE HIGH 16 BITS FAILED TO CHANGE 


TST23 ag 
#B1T4,$GDDAT ;LOAD he 
acsR, $BDDA T TREAD § 

WBITI4, SBDDAT s TEST ir TCELL OVERF LOw" ‘ 

TST23 77BR IF COR RECT 

12 :"‘CELL OVERFLOW’ FLOP SET IN ERROR 


PTT I TIt ttt et ii tii titi t titi titi titi it iitittt tite titi t itt t ttt itt 


‘TEST 23 VERIFY Z INPUTS CAUSE THE HIGH 8 BITS OF THE 32 BIT COUNTER TO CHANGE 


J TRAE AEE EERE AREER EH 


TST23: 

#100, $TIMES 3:D0 100 ITERATIONS 

AMCLRALL .a@SFR :CLEAR THE DEVICE 

ATSIDMA,@SFR SET TEST ~ FLOP 

#377 ,aWCR sLOAD W.C. R 

#-2,@BAR ;LOAD B.A. REG 

#B1T4!BIT1,aCSR sENTER MATRIX MODE 

CSR GO *‘ACTIVE'’ 

sENABLE *‘TEST 2°" PULSES 
;DISABLE ‘TEST Z*' PULSES 
LOAD EXPECTED 
:READ HIGH 16 BITS 
TEST HIGH BYTE 


SET 
BITS OF THE 32 BIT COUNTER FAILED TO CHANGE 


000004 
012737 
012777 


RERREERS 
REENRSE 


-_ 
3 SY 2 2 4 


% = 
MRO 


ve 
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C2NCCB.P11 31-AUG-79 11:21 T24 VERIFY 2 INPUTS DO NOT CAUSE THE LOW 8 BITS OF 32 BIT COUNTER TO CHANGE I SEQ 0040 

669 FL RAE EE RARER REREHREREEREREERRERERERRREEAE RARE 
(3) SeTEST 24 VERIFY Z INPUTS DO NOT CALSE THE LOW 8 BITS OF 32 BIT COUNTER TO CHANGE 
(3) J FRR EAEREEERAEAERAER ARERR EEEEREARREREARRERERERERERRRER ED 
(2) 006370 000004 TST24: SCOPE 
(1) 006372 012737 000100 001160 MOV #100, $TIMES ::D0 100 ITERATIONS 
670 006400 012777 004000 173350 MOV ACLRALL,@SFR :CLEAR THE DEVICE 
671 006406 012777 000000 173336 MOV #0, aWwCR ‘LOAD W.C. REG 
672 006414 012777 000000 173332 MOV  @BAR “LOAD B.A. 
673 006422 005077 173320 CLR acsr ENSURE LIST MODE 
674 006426 052777 000002 173322 BIS ATESTZ,aSFR TENABLE "TEST 2°’ PULSES 
(1) 006434 042777 000002 173314 BIC #TESTZ,aSFR ‘DISABLE ‘TEST 2'' PULSES 
675 006442 012737 000000 001124 MOV #0, $GDDAT SLOAD EXPECTED 
676 006450 017737 173300 001126 MOV @BAR , SBDDAT “READ LOW 16 BITS 
677 006456 001401 BEQ TST 25 ::BR IF ZER 
678 006460 104010 ERROR 10 ‘2 INPUT CAUSE THE 32 BIT COUNTER TO CHANGE IN LIST MODE 
680 _] pierces pea peer inet tgplrat- ge mylene ming ge sn gr garth tpi tartan tae 
(3) T*TEST 25 TEST THAT 'WCA OVFL'' SETS Z/WC OVERFLOW FLOP AND ‘‘CLR ALL*’ CLEARS IT 
(3) MORRO BABABERSBALAALSZAZLELCLELEAS ESE SEE EERE SESE R RRR RRR ARERR RRS RRR RS RARE SS 
(2) 006462 000004 TS$T25: SCOPE 
(1) 006464 012737 000010 001160 MOV #10,STIMES ::D0 10 ITERATIONS 
681 006472 012777 004000 173256 MOV #CLRALL,@SFR sCLEAR DEVICE 

006500 012777 173250 MOV #TSTDMA. aSFR *SET TEST DMA FLOP 
683 506 012777 177777 173236 MOV #-1,awWcR [LOAD Z COUNTER 

006514 012777 177776 173232 MOV #'-2@BAR LOAD 2 COUNTER 
685 006522 012777 000022 173216 MOV #B1T4'BIT1,aCSR ‘ENTER ‘'MATRIX'' MODE 
686 052777 000001 173210 BIS #B1TO,aCSR ‘ENABLE NCV11 
687 NOW ENABLE ‘TEST 2'' INPUTS } 
688 006536 052777 000002 173212 BIS ATESTZ,aSFR sENABLE ‘'TEST 2'* PULSES 
(1) 006544 042777 000002 173204 BIC ATESTZ.aSFR [DISABLE ‘TEST 2'' PULSES 
689 006552 013700 002006 MOV CPUDLO.RO ‘LOAD GROSS TIMER 
690 006556 005001 CLR R1 
691 006560 012737 040020 001124 MOV #B1T14'BIT4,$GDDAT ZLOAD EXPECTED STATUS 
693 006566 032777 040000 173152 1$: BIT #B1T14,aCSR : TEST FOR Z/wC OVERFLOW 
694 006574 001011 BNE 2$ “BR IF SET 
695 006576 005301 DEC R1 : DELAY 
696 006600 001372 BNE 1$ 
697 006602 005300 DEC RO :DELAY 
698 006604 001370 BNE 1$ 
699 006606 012777 000400 173142 MOV HENDDMA, aSFR :STOP DMA TRANSFERS 
700 006614 104012 ERROR 12 sAFTER A GROSS TIME, THE Z/WC OVERFLOW FLOP FAILED TO SE 
701 006616 000416 BR TST26 33 
703 -NOW GENERATE ‘'CLR ALL'’ TO CLEAR Z/WC OVERFLOW BIT 
704 006620 052777 004000 173130 2$: BIS ACLRALLaSFR ZCLEAR Z/WC FLOP 
705 006626 012737 200 001124 MOV #8117, $GDDAT SLOAD EXPECTED 

34 017737 173106 001126 MOV aCSR,$BDDAT [READ STATUS 

707 006642 023737 001124 001126 CMP S$GDDAT, $BDDAT + COMPARE 

006650 001401 BEQ TST26 ::BR IF 


708 SAME 
709 006652 104012 ERROR 12 7'CLR ALL'’ FAILED TO CLEAR ‘‘2/wC'' FLOP 





C 
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PAGE 20 
CZNCCB.P11 31-AUG-79 11:21 726 TEST THAT ‘WCA OVFL’’ SETS Z2/WC OVERFLOW FLOP AND ''CLR WC OVFL'’ CLEARS IT SEQ 0041 

7113 MARARBRBARALALSALALSARSRSARSSSSAR AAR SERRA RRS REAR AR ARERR SARA SAREE SS 
(3) SATEST 26 TEST THAT ‘WCA OVFL'' SETS Z/WC OVERFLOW FLOP AND ''CLR WC OVFL"’ CLEARS IT 
(3) PECTS SIT OST ITI TITt SIT iT iit ti it tii litti sii iti sit titer rite iii i 
(2) 006654 000004 TST26: SCOPE 
(1) 006656 012737 000010 001160 MOV #10, STIMES 3:D0 10 ITERATIONS 
712 006664 012777 004000 173064 MOV ACLRALL ,@SFR CLEAR DEVICE 
713 006672 012777 173056 MOV MTSTDMA,aSFR ;SET TEST DMA FLOP 
714 006700 012777 177777 173044 MOV #-1,awCR ;LOAD Z COUNTER 
715 706 012777 177776 173040 MOV #-2,@BAR sLOAD Z COUNTER 
716 006714 012777 22 173024 MOV #B81T4!BIT1,aCSR ENABLE ‘MATRIX’ MODE 
717 +006722 052777 173016 BIS #81T0,aCSR :SET NCV11 ACTIVE 
718 NOW ENABLE ‘'TEST 2°' INPUTS a 
719 006730 052777 000002 173020 BIS ATESTZ,@SFR sENABLE ‘TEST 7°’ PULSES 
” 006736 042777 000002 173012 BIC AMTESTZ,@SFR DISABLE ''TEST 2°* PULSES 
721 006744 013700 002006 MOV CPUDLO,RO ;LOAD GROSS TIMER 
722 006750 005001 CLR R1 
iS? 006752 012737 040020 001124 MOV #B1T14!BIT4,$GDDAT :LOAD EXPECTED STATUS 
725 006760 032777 040000 172760 1$: BIT #B1T14,aCSR TEST FOR Z/WC OVERFLOW 
726 006766 001014 BNE 2$ BR IF SET 
727 006770 005301 DEC R1 DELAY 
728 006772 001372 BNE 1$ 

006774 005300 DEC RO ;DELAY 
730 006776 001370 BNE 1$ 
731 007000 012777 000400 172750 MOV MENDDMA , aSFR :STOP DAM TRANSFERS 

007006 042777 000002 172742 BIC HTESTZ,@SFR sotOP NPUTS 
733 007014 104012 ERROR 12 ;AFTER A GROSS TIME, THE Z/wC OVERFLOW FLOP FAILED TO SET 
tes 007016 000416 BR TST27 ae 
736 NOW GENERATE '"'CLR WC ye TO CLEAR Z/WC OVERFLOW BIT 
737 007020 052777 040000 172730 2$: BIS ACLRWCO,aSFR ;CLEAR Z/wWC FLOP 
738 007026 012737 001724 MOV #117 /BIT4:BIT1, $GDDAT :LOAD EXPECTED 
739 007034 017737 172706 001126 MOV acSR,$BDDA READ STATUS 
740 007042 023737 001124 001126 CMP S$GDDAT, SBDDAT “ COMPARE 
741 007050 001401 BEQ TST27 ;3BR IF ir. 
742 007052 104012 ERROR 12 "CLR WC OVFL"’ nee TO 


743 : CLEAR frye FLOP (BIT 14 


CZNCCB NCV11 
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TEST THAT 'WCA OVFL'’ GENERATES AN INTERRUPT 


—MmARRBRAAASZALALAAAARAAASAAARAALALARALSARARA AAA RARAA RAR ASA RARER SDSS SD | 


TEST THAT ‘WCA OVFL*’ GENERATES AN INTERRUPT 


ME TTTITITITTLILITT LITLE ELLE LL LETTE LLL LLL 


:STEST 27 
t$127: 


#10, $TIMES 
MCLRALL ,@SFR 
MTSTDMA, aSFR 
ae -awCR 


#~2, QBAR 
welt¢'BIT). -aCSR 


IS #B1T0,aCSR 
; “TEST 2°’ INPUTS 


I 
ERROR 
BR 


sNOW ENABLE THE 
2s: MOV 


3$: 


AMTESTZ,ASFR 
#TESTZ.aSFR 
pe ae 


#B1T14!BIT4, $GDDAT 


#BiT14,aCSR 
2$ 


1$ 
MENDDMA , aSFR 
#TESTZ,aSFR 


7:00 10 1 


TERAT IONS 


; CLEAR DEVICE 
; SE 


T TEST DMA FLOP 


MATRIX MODE 
SET NCV11 ACTIVE 
sENABLE *'TEST 2°’ PULSES 


;DISABLE ‘‘TEST Z** PULSES 
;LOAD GROSS TIMER 


;LOAD EXPECTED STATUS 


;TEST FOR Z/WC OVERFLOW 
; IF SET 


ae DMA — 


oP 2" I 


NPUTS 
12 ;AFTER A GROSS time. THE re OVERFLOW FLOP FAILED TO SET 
5$ ;;BR TO CLEAN UP 


eS + gt INTERRUPT BIT AND WAIT FOR AN INTERRUPT 


#3$,-(SP) 


#4$,aVECTAO 
#B1T6,aCSR 


aCSR,$BDDAT 
AMCLRALL ,@SFR 
13 
5% 


(SP)+,(SP)+ 
acsR 
ACLRALL ,@SFR 


VECTA1, ,@VECTAO 
avECTA1 


3LSI-11 HACK 


;LOAD INTR. VECTOR 
ENABLE INTERRUPT 


;READ STATUS 
;CLEAR THE DEVICE 
zWC/Z OVERFLOW FAILED TO GENERATE INTERRUPT 


;:BR TO CLEAN 


UP 


;CLEAR THE DEVICE 
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T30 VERIFY ‘WCA OVFL"’ CLEARS ‘‘ACTIVE"’ 


SL RRAAAAAAEAERAERERARERRRERERRRRRARRRARERRERRAEREAAERERRERAEREREREREE 


SeTEST 30 VERIFY ‘'WCA OVFL'’ CLEARS ‘‘ACTIVE"' 


WeRARARARERAAAAAARSRALASARASESER ERR R SESE R ARR RRS ARR RRR RRR SSSR SS SS 


T5130: SCOPE 
MO 


Vv #10, $TIMES 3:D0 10 ITERATIONS 
MOV AMCLRALL ,@SFR ;CLEAR DEVICE 
MOV MTSTDMA! TSTCON, @SFR SET TEST DMA 
MOV #-1 ,awCR ;LOAD W.C. REG. 
MOV #-2 ,@BAR ;LOAD BAR REG. 
CLR @OF F ;CLEAR OFFSET REG. 
MOV #B81T4!BIT1,aCSR [ENABLE MATRIX MODE 
BIS #B1TO,aCSR 2SET "'ACTIVE"’ 
BIS AMTESTZ,@SFR sENABLE ‘TEST Z'* PULSES 


;DISABLE ‘'TEST 2°* PULSES 


MOV aCSR,$BDDAT ;READ STATUS 
MOV #B1T14!BIT7!B1T4!BIT1,$GDDAT LOAD EXPECTED 
CMP $GDDAT , SBDDAT ; COMPARE 
BEO 1$ ;;BR IF SAME 
ERROR 12 ;'WCA_OVFL"' FAILED TO 
;CLEAR ‘‘ACTIVE’’ (BIT 7 SET) 

BR TST31 te 

1$: CLR $SGDDAT ;CLEAR THE EXPECTED 
MOV @OF F , S$BDDAT ;READ THE ACTUAL 
BEQ TST31 ;;BR IF CLEARED 
ERROR 12 ;"WCA INC X OFF’’ IN MATRIX MODE CHANGED 


:THE OFFSET REGISTER 


SEQ 0043 





CZNCCB NCV11 STIC 
. 31-AUG-79 11:21 


SL RAAAAAAAARAAERARAARARARARRERRRAAREARRAARRAAERERAERARRERAERARARERR ED 


pease 31 VERIFY JOYSTICK DONE FLOP SETS 


J RRAAEAAAAAERAERAERARAAAARRERRRARARRRAARARARAAEAAARARAERERRRARR AED 


ERROR 1 
: NOW PERFORM A ‘'TST'' INSTRUCTION TO THE JOYSTICK REGIS 


_E png alta nha mtnngoetnagtigheennag bse! gy snenipniada bo elses tagline tae gla ete 


esvEst 32 VERIFY THAT "RESET'’ INSTRUCTION CLEARS THE JOY READY FLOP 


» LRA RERAAERERRERAERARERERAEEAERAAEAAERERAERE ERE 


ERROR 14 JOY 
a ISSUE A ‘'CLR ALL*’ AND VERIFY THE yy READY’’ DOES NOT CLEAR 


ERROR 14 
NOW ISSUE A BUS ‘RESET’' AND VERIFY THE JOY Teer. CLEAR 
$: RESET 7BUS “"INIT’ 










F 4 
31-AUG-79 13:10 PAGE 23 
VERIFY JOYSTICK DONE FLOP SETS 












SCOPE 











MOV #40, $TIMES :D0 40 ITERATIONS 

MOV #CLRALL,a@SFR CLEAR THE DEVICE 

BIS WREDJOY, aSFR REQUEST JOYSTICK DATA 
MOV CPUDL1,RO ‘LOAD DELAY COUNTER 

TSTB = @SFR ‘WAIT FOR JOYSTICK READY 
BM] 2$ ‘BR ir SET 

DEC RO “DELA 

BNE 1$ BR if NOT EXHAUSTED 
MOV @SFR,$BDDAT ;READ STATUS 

MOV wB1T7, $GDDAT “LOAD EXPECTED 





iH OYSTICK athe FAILED TO SET 





THE — A THIS BUS ADDRESS SHOULD CLEAR JOY READY FLOP"’ 
TST oy BE La | REGISTER 







MOV Serr, SBDDAT READ STATUS 

TSTB SBDDAT :TEST IF THE BIT CLEARED 

BPL TST32 ;;BR IF YES 

CLR $GDDAT ;LOAD EXPECTED 

ERROR 14 ;ADDRESSING THE JOYSTICK ADDRESS FAILED TO CLEAR 














SCOPE 
MOV #60,$TIMES ::D0 40 ITERATIONS 

MOV #CLRALL,@SFR sCLEAR THE DEVICE 

BIS #REDJOY. a@SFR SREQUEST JOYSTICK DATA 
MOV CPUDL1,RO [LOAD DELAY 

TSTB ~— @SFR ‘WAIT FOR JOYSTICK READY 
BMI 2$ :BR IF SET 

DEC RO DELAY 

BNE 1$ [BR IF NOT EXHAUSTED 
MOV aSFR,$BDDAT :READ STATUS 

MOV wB1T?, SGDDAT :LOAD EXPECTED VALUE 





READY FAILED TO SET 







BIS #CLRALL,@SFR ;GENERATE "CLR ALL"’ 
MOV aSFR, $ADDAT “READ STATUS 

MOV #8117, $GDDAT ZLOAD EXPECTED VALUE 

CMP SGDDAT , SBDDAT i COMPAR E 

BEQ 3$ 7 ;BR IF S 





>ACER ALL** ay THE “SCY READY’ FLOP IN ERROR 









MOV aSFR,$BDDAT [READ STATUS 
MOV #0, $GDDAT [LOAD EXPECTED 
MOV aSFR,$BDDAT *READ STATUS 
BEQ TST33 ::BR IF CLEARED 





ERROR 14 ;BUS INIT FAILED TO CLEAR JOY READY 





CZNCCB NCVI1 DIAGNOSTIC MACY11 30G(1063) 31-AUG-79 13:10 PAGE 24 
C2NCCB.P11 31-AUG-79 11:21 132 VERIFY THAT ‘RESET’ INSTRUCTION CLEARS THE JOY READY FLOP SEQ 0045 
7 

ihe  RERARAAARAARARARAARAARARAERERAAAARAARARERARAEARARAARRARARAREREREEKREKRHREK EEE 
(3) LATEST 33 JOYSTICK DATA PATH = GAIN =0 ZB ENABLE =O RES. = 000 
(3) *“RRARAARAARARAAAARAAAAAARAARARAAARKRARARAARARAARARAAARARAARAAREARAREREEHRERKAEEEEK 
(2) 007740 000004 +§133: SCOPE 
(1) 007742 012737 000010 001160 MOV #10, STIMES ::D0 10 ITERATIONS 
875 007750 012777 004C90 172000 MOV ACLRALL,a@SFR =CLEAR THE DEVICE 
(1) 907756 012777 000014 171772 MOV #TSTCON! TSTDMA, asFR *SET TEST CONTROLLER FLOP 
(1) 007764 012777 171754 MOV #0,acsR OAD CSR REGISTER 
(1) 007772 052777 000001 171756 BIS #REDJOY, asFR sREQUEST JOYSTICE DATA 
(1) 010000 105777 171752 1$: TSTB SFR ‘WAIT FOR JOYSTICE READY 
(1) 010004 100375 BPL 1$ 
(1) 010006 017737 171750 001126 MOV auoy, SDDAT :READ THE REGISTER 
(1) 010014 012737 000000 001124 MOV #0,$GDDA ‘LOAD EXPECTED 
(1) 010022 023737 001124 001126 CMP ScbDAT. SEDDAT * COMPARE 
876 010030 001401 BEQ S134 ::BR IF SAME 
877 010032 104015 ERROR is > JOYSTICK DATA PATH BIT SET 
879 SPUR ARAAEAARAERAERARAAEAREEREERERERERRERAREREEREERARERERRRARRARHEE ED 
(3) T*TEST 34 JOYSTICK DATA PATH = GAIN =1 
(3) FF AAR AAERAAARARARAAAARAREARREARRAARRERRARARERERARREARERERARRRER EHD 
(2) 010034 000004 T5734: SCOPE 
(1) 010036 012737 000010 001160 MOV #10, STIMES ::D0 10 ITERATIONS 
880 010044 012777 004000 171704 MOV ACLRALL,@SFR :CLEAR THE DEVICE 
(1) 010052 012777 000014 171676 MOV #TSTCON! TSTDMA, aSFR :SET TEST CONTROLLER FLOP 
(1) 010060 012777 171660 MOV #2000, aCSR “LOAD CSR REGISTER 
(1) 010066 052777 000001 171662 BIS WREDJOY, aSFR “REQUEST JOYSTICE DATA 
(1) 010074 105777 171656 1$: TSTB = @SFR “WAIT FOR JOYSTICE READY 
(1) 010100 100375 BPL 1s 
(1) 010102 017737 171654 001126 MOV :READ THE REGISTER 
(1) 010110 012737 124250 001124 MOV #124950, Scopat [LOAD EXPECTED 
(1) 010116 023737 001124 001126 CMP SGDDAT , $8DDAT * COMPARE 
881 010124 001401 : BEQ TST35 ::BR IF SAME 
882 010126 104015 ERROR 15 : JOYSTICK DATA PATH ERROR 
884 J FERRARA EEAEEEEEREEREREEREEREEREREREERAREREERER ER 
(3) S*TEST 35 JOYSTICK DATA PATH = ZB ENABLE =1 
(3) LARA AREA RARER AREER ARAERERAERE RARE RERE REAR TRAER 
(2) 010130 TST35: SCOPE 
(1) 010132 012737 000010 001160 MOV #10, STIMES ::D0 10 ITERATIONS 
885 010140 012777 171610 MOV #CLRALL,a@SFR sCLEAR THE DEVICE 
(1) 010146 012777 000014 171602 MOV #TSTCON! TSTDMA, asFR ‘SET TEST CONTROLLER FLOP 
(1) 010154 012777 171564 MOV #4000, aCSR ‘LOAD CSR REGISTER 
(1) 010162 052777 1 171566 BIS #REDJOY, asFR :REQUEST JOYSTICE DATA 
(1) 010170 105777 171562 1$: TSTB ~—s_ @SFR WAIT FOR JOYSTICE READY 
(1) 010174 100375 BPL 1 
(1) 010176 017737 171560 001126 MOV :READ THE REGISTER 
(1) 204 012737 050120 001124 MOV #050120, $GDDAT ‘LOAD EXPECTED 
(1) 010212 023737 001124 001126 CMP SGDDAT , $8DDAT * COMPARE 
886 001401 TST36 ::BR IF § 
887 010222 104015 ERROR 1 ; JOYSTICK DATA PATH ERROR 


H 4 
CZNCCB NCV11 _ DIAGNOSTI MACY11 30G(1063) 31-AUG-79 13:10 PAGE 25 
CZNCCB.P11 31-AUG-79 11:21 736 JOYSTICK DATA PATH RES. = 001 


J J AAAAARAAAAAAARAAAAAARAAAAEERRARARARRAAREAERERORERRRARAERRERERARE 


I*TEST 36 JOYSTICK DATA PATH RES. = 001 


ff RAAARAARARAARARARARARARAERAEAAARARRARARAARRRAAARAARARRARREEHREEEH 


010224 000004 TST36: 

#10, STIMES 3:00 10 ITERATIONS 
MCLRALL ,@SFR ;CLEAR THE DEVICE 
MTSTCON! TSTDMA,aSFR SET TEST CONTROLLER FLOP 
#23,aCSR ;LOAD CSR REGISTER 
#MREDJOY,@SFR REQUEST JOYSTICE DATA 
aSFR ;WAIT FOR JOYSTICE READY 


1$ 

aJOY , SBDDAT READ THE REGISTER 

#401, SGDDAT ;LOAD EXPECTED 

SGDDAT , SBDDAT ; COMPARE 

TST37 ;;BR IF SAME 

15 ; JOYSTICK DATA PATH ERROR 


FF ARAAAAARARAARARAERAARRRERRERERREARRAEERRRAARRRREARAREKAAERRRAERRAERED 


i*TEST 37 JOYSTICK DATA PATH RES. = 010 


fF REAR ARAREAKAREERARAERRRAERAEHEEARERAERRERAERARARARRERRERERERERARAR REED 


TST37 
#10,STIMES 3320 10 ITERATIONS 
#CLRALL ,@SFR ;CLEAR THE DEVICE 
#TSTCON! TSTDMA, aSFR :SET TEST CONTROLLER FLOP 
#25 ,aCSR [LOAD CSR REGISTER 
000001 #REDJOY SFR [REQUEST JOYSTICE DATA 
171372 3 en sWAIT FOR JOYSTICE READY 


171370 READ THE REGISTER 
001002 ;LOAD EXPECTED 
001124 OMPARE 


Fn an it tn a at’. Lae Late 
a et st td OD KI 
Meee vwuvuuvvQvyuvw 
oese=6 
NNNN 


SS 


32 
pao 
NNNN 
— ss 
WeeSe 
arnes 


( 
( 
( 
( 
( 
( 
( 
( 


tk ed dd td 
de ee ae 
ALO 


SAME 
;JOYSTICK DATA PATH ERROR 


SL AAR REECE ERE REE EEEERER REED 


:*TEST 40 JOYSTICK DATA PATH RES. = 100 


FF A AARRAARAAERAERREREKRAERAERAEKEAEAREREKAERAERERERAEREERAERAERRKRAERARRRRER 


TS140: 

#10, tei * ::D0 10 ITERATIONS 

ACLRALL, aSF ;CLEAR THE DEVICE 

FST CON! TS TDMA, aSFR ;SET TEST CONTROLLER FLOP 

#31 ,aCSR :LOAD CSR REGISTER 
000001 IS WREDJOY,aSFR sREQUEST JOYSTICE DATA 
171276 : as th sWAIT FOR JOYSTICE READY 


171274 aJOY ,SBDDAT READ THE REGISTER 
002004 #2004 , $GDDAT LOAD EXPECTED 
001124 scpDar, , SBDDAT = ; COMPARE 


3 IF SAME 
15 :JOY STICK DATA PATH ERROR RES. = 100 


$883 


Ct i a a a a el 
ok ed td sd od 
a Ne 
eee 
NNNN 


88 
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CZNCCB.P11 31-AUG-79 11:21 141 VERIFY THE DATA INCREMENT FUNCTION SEQ 0047 
907 FF RAAAARAAAAAAARAAAAAARARARARAARAAARAAAAERARAARRERARARAAARAARRRAREEED . 
(3) SeTEST 41 VERIFY THE DATA INCREMENT FUNCTION 
(3) 5 RRR E EERE REAR AERA ARERR ERERAERRERRER EERE 
(2) 010510 000004 T$141: SCOPE 
(1) 010512 012737 000010 001160 MOV #10,$TIMES ::D0 10 ITERATIONS 
908 010520 012777 171230 MOV #CLRALL ,aSFR :CLEAR THE DEVICE 
(1) 010526 012777 000014 171222 MOV #TSTCON! TSTDMA, @SFR “SET TEST CONTROLLER FLOP 
(1) 010534 012777 000421 171204 MOV #421,aCSR ‘LOAD CSR REGISTER 
(1) 010542 052777 171206 BIS MREDJOY,a@SFR “REQUEST JOYSTICE DATA 
(1) 010550 105777 171202 1$: TSTB ~—s- @SFR [WAIT FOR JOYSTICE READY 
(1) 010554 100375 BPL 1$ 
(1) 010556 017737 171200 001126 MOV QJOY, SBDDAT :READ THE REGISTER 
(1) 010564 012737 000401 001124 MOV #401, $GDDAT ‘LOAD EXPECTED 
(1) 010572 023737 001124 001126 CMP SGDDAT , SBDDAT + COMPARE 
909 0 001401 BEQ TST42 ::BR IF SAME 
910 010602 1046016 ERROR 16 sMAINT. CAMO1 FAILED TO INCREMENT DATA REGISTER 
912 FLARE AREA ERE AEREERERERER EERE EERE EREERAERERRERRERRERRRREREEH 
(3) s*TEST 42 VERIFY THE DATA INCREMENT CARRY BIT 
(3) FE ERRERAEARERERKE AREER RERRRERRERRRAERRAEERAERERAERRAAERRREREREERREEEH 
(2) 010604 000004 TS142: SCOPE 
(1) 0 012737 000010 001160 MOV #10, $TIMES ::D0 10 ITERATIONS 
913 010614 012777 004 171134 MOV #CLRALL . aSF :CLEAR TH 
(1) 012777 000014 171126 MOV #TSTCON! TSTDMA, aSFR =SET TEST CONTROLLER FLOP 
(1) 0 012777 002437 171110 MOV #2437, aCSR ‘LOAD CSR REGISTER 
(1) 010636 052777 000001 171112 BIS #REDJOY, aSFR sREQUEST JOYSTICE DATA 
(1) 010664 105777 171106 1$: TSTB ~— @SFR sWAIT FOR JOYSTICE READY 
(1) 100375 BPL 1$ 
(1) 010652 017737 171104 001126 MOV QJOY, SBDDAT :READ THE REGISTER 
(1) 0 012737 130260 001124 MOV #130260, $GDDAT [LOAD EXPECTED 
(1) 010666 023737 001124 001126 CMP SGDDAT , $BDDAT * COMPARE 
914 010674 001401 BEQ TST43 ::BR IF SAME 
915 010676 104016 ERROR 16 >MAINT. CAMO1 WITH RES.=7, G=1, ZB =0 
pat 4 sFAILED TO CAUSE DATA INCREMENT CARRY PROPERLY 
918 STARR REE EERE EERE ERE EREAERAARAREEREERRAEREERE EE 
(3) TeTEST 43 VERIFY THE DATA INCREMENT FUNCTION IS INHIBITED 
(3) CF RRA AAR AREA ERE REREEEEEAERAAERKEEEAERAERAARERERAAAERAAARAAARRAREREE REDD 
(2) 010700 TS1T43: SCOPE 
(1) 010702 012737 000010 001160 MOV #10, $TIMES ::D0 10 ITERATIONS 
919 010710 012777 171040 MOV #CLRALL,a@SFR :CLEAR THE DEVICE 
(1) 010716 012777 000014 171032 MOV #TSTCON! TSTDMA, aSFR ‘SET TEST CONTROLLER FLOP 
(1) 010724 012777 006437 171014 MOV #6437,aCSR ‘LOAD CSR REGISTER 
(1) 010732 052777 000001 171016 BIS #REDJOY, aSFR ‘REQUEST JOYSTICE DATA 
(1) 010740 105777 171012 1$: TSTB ~—s- SFR ‘WAIT FOR JOYSTICE READY 
(1) 010744 100375 BPL 
(1) 010746 017737 171010 001126 MOV QJOY, $BDDAT :READ THE REGISTER 
(1) 010754 012737 177777 001124 MOV #177777, $GDDAT “LOAD EXPECTED 
(1) 010762 023737 001124 001126 CMP $GDDAT, $BDDAT : COMPARE 
920 010770 001401 BEQ TST44 ::BR 1S SAME 
921 010772 104016 ERROR 16 sFAILED TO INHIBIT DATA INCREMENT FUNCTION 
922 : IF THE BAD DAT4 WAS 0 
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CZNCCB.P11 31=AUG-79 11:21 144 VERIFY THE DATA DECREMENT FUNCTION SEQ 0048 
9 4, FF RAAAARRAAAAAAARAAARARARARAAAAAARRARARAAAARAAAAAARARAAARARAERAARRAER : 
(3) seTEST 44 VERIFY THE DATA DECREMENT FUNCTION 
(3) FL RAAAAARARARARAAARAARARAAEAAAERARRERARERARARARAAARRARRRARRARAERARERS 
(2) 010774 000004 TST44: SCOPE 
(1) 010776 012737 000010 001160 MOV #10,$TIMES 37;D0 10 ITERATIONS 
925 011004 012777 004000 170744 MOV ACLRALL,@SFR CLEAR THE DEVICE 
(1) 011012 012777 000014 170736 MOV #TSTCON:TSTDMA, asFR :SET TEST CONTROLLER FLOP 
(1) 011020 012777 001023 170720 MOV #1023,a ‘LOAD CSR REGISTER 
(1) 011026 052777 000001 170722 BIS PRED ION aSFR SREQUEST JOYSTICE DATA 
(1) 011034 105777 170716 1$: TSTB aSFR sWAIT FOR JOYSTICE READY 
(1) 011040 100375 BPL 1$ 
(1) 0110462 017737 170714 001126 MOV QJOY , SBDDAT ;READ THE REGISTER 
(1) 011050 012737 000000 001124 MOV #0, $GDDAT LOAD EXPECTED 
(1) 011056 023737 001124 001126 CMP $GDDAT , SBDDAT * COMPARE 
926 011064 001401 BEQ TST45 : BR IF SAME 
927 011066 104017 ERROR 17 :1F DATA WAS 401, THE DATA DECREMENT FUNCTION FAILED 
a8 OTHERWISE DECREMENTED DATA ERROR 
930 RARER EERE EERE REREKEEREKEERREEREAREEEERERERAREEEERE ARERR EH 
(3) r*TEST 45 VERIFY THE DATA DECREMENT BORROW 
(3) FL EAR RRA REER EERE REE RRA EERE ERERRAREEEREREEKEEEH 
(2) 011070 000004 TST45: SCOPE 
(1) 011072 012737 000010 001160 MOV #10,STIMES ::DO0 10 ITERATIONS 
931 011100 012777 004000 170650 MOV #CLRALL,@SFR CLEAR THE DEVICE 
(1) 011106 012777 000014 170642 MOV #TSTCON! TSTDMA, aSFR [SET TEST CONTROLLER FLOP 
(1) 011114 012777 007037 170624 MOV #7037,aCSR LOAD CSR REGISTER 
(1) 011122 052777 000001 170626 BIS #REDJOY, asFR REQUEST JOYSTICE DATA 
(1) 011130 105777 170622 1$: TSTB aSFR WAIT FOR JOYSTICE READY 
(1) 011134 100375 BPL 1$ 
(1) 011136 017737 170620 001126 MOV QJOY, SBDDAT READ THE REGISTER 
(1) 011144 012737 177376 001124 MOV #177376, $GDDAT LOAD EXPECTED 
(1) 011152 023737 001124 001126 CMP $GDDAT , $8DDAT + COMPARE 
932 011160 001401 BEQ TST46 7;BR IF SAME 
a 011162 104017 ERROR 17 :DECREMENTED DATA ERROR 
935 LL CEE EEE EERE ERE KEEREREEEEEEE REE EERE 
(3) Z*TEST 46 VERIFY THE DATA DECREMENT FUNCTION IS INHIBITED 
(3) SLA REE REAR EERE EE EERE ERE 
(2) 011164 TST46: SCOPE 
(1) 011166 012737 000010 001160 MOV #10, STIMES 7:D0 10 ITERATIONS 
936 011174 012777 004000 170554 MOV ACLRALL,@SFR CLEAR THE DEVICE 
(1) 011202 012777 000014 170546 MOV ATSTCONETSTOMA, asFR :SET TEST CONTROLLER FLOP 
(1) 011210 012777 001021 170530 MOV #1021,a [LOAD CSR REGISTER 
(1) 011216 052777 000001 170532 BIS PRED JOY cOSFR SREQUEST JOYSTICE DATA 
(1) 011224 105777 170526 1$: TSTB asFR WAIT FOR JOYSTICE READY 
(1) 011230 100375 BPL 1$ 
(1) 011232 017737 170524 001126 MOV JOY, $BDDAT READ THE REGISTER 
(1) 011240 012737 000000 001124 MOV #0, $GDDAT LOAD EXPECTED 
(1) 011246 023737 001124 001126 CMP S$GDDAT , SBDDAT : COMPARE 
937 011254 001401 BEQ TST47 ::BR IF SAME 
938 011256 104017 ERROR 17 : INHIBIT DECREMENT FUNCTION ERROR 


939 :1F DATA WAS 177777 
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CZNCCB.P11 31-AUG-79 17:21 147 TEST ADDRESS MAKER ~- MATRIX MODE - RES = 7 GAIN = 0 ZB ENABLE = 0 SEQ 0049 
956 SFR RRA AERA AAREAKREERREAREERREREEEERRERERRAEREREREER EH 
(4) DeTEST 47 TEST ADDRESS MAKER = MATRIX MODE - RES = 7 GAIN = 0 ZB ENABLE = 0 
(4) FLARE RE REE RRR REE REE EEEREE RRR ER EEE 
(3) 011260 000004 1147: SCOPE 
(2° 62 012737 000010 001160 MOV #10,$TIMES ::D0 10 ITERATIONS 
(i) 011270 012777 170460 MOV ACLRALL,@SFR ;CLEAR_DEVICE x 
(1) 011276 012777 000014 170452 MOV ATSTDMAITSTCON, asFR SET ''TEST DMA AND CONTROL 
(1) 012777 170434 MOV #36,aCSR LOAD RESOLUTION, GAIN, ZB ENABLE VALUE 
(1) 011312 052777 000002 170436 BIS #TESTZ,a@SFR TENABLE ‘TEST 2°" PULSES 
(1) 320 052777 000001 170420 BIS #RIT0,aCSR SET ENABLE NCV11. 
(1) 011326 042777 170422 BIC ATESTZ,aSFR [DISABLE "TEST 2°’ PULSES 
(1) 011334 017737 170420 001126 MOV @ADM, SBDDAT “READ THE ADDRESS DATA MAKER 
(1) 342 012737 003407 001124 MOV aan0P" SGDDAT ‘LOAD EXPECTED VALUE 
(1) 011350 023737 001124 001126 CMP $GDDAT , SBDDAT ‘COMPARE EXPECTED TO READ 
(3) 011356 001401 BEQ TST50 ::BR IF SAME 
(1) 011360 104020 ERROR 20 ; INCORRECT ADDRESS MAKER DATA 
(1) ; RESOLUTION = 7 GAIN = 0 ZB ENABLE = 0 
957 LIER ARR AREE ERE EEREKREEEEEREREREEEEREEKEE REE EH 
(4) s*TEST 50 TEST ADDRESS MAKER = MATRIX MODE - RES = 7 GAIN = 1 ZB ENABLE = 0 
(4) J LARA REE RARE REE ERE EEREREEEREERREKERREKEEEREEER EEE 
(3) 011362 000004 TST50: SCOPE 
(2) 011364 012737 000010 001160 MOV #10, STIMES ::D0 10 ITERATIONS 
(1) 011372 012777 604000 170356 MOV #CLRALL.@SFR sCLEAR DEVICE 
(1) 011400 012777 000014 170350 MOV #TSTDMA! TSTCON, aSFR ‘SET ‘'TEST DMA AND CONTROL" 
(1) 011406 012777 002036 170332 MOV #2036, aCSR [LOAD RESOLUTION, GAIN, ZB ENABLE VALUE 
(1) 011414 052777 000002 170334 BIS ATESTZ,aSFR TENABLE ‘TEST 2° PULSES 
(1) 011422 052777 000001 170316 BIS #BITO,acsR SET ENABLE NCV11. 
(1) 011430 042777 000002 170320 BIC #TESTZ, aSFR ;DISABLE ‘TEST Z°* PULSES 
(1) 011436 017737 170316 001126 MOV @ADM, SBDDAT [READ THE ADDRESS DATA MAKER 
(1) 011444 012737 127657 001124 MOV #127657, $GDDAT SLOAD EXPECTED VALUE 
(1) 011452 023737 001124 001126 CMP SGDDAT , $BDDAT * COMPARE EXPECTED TO READ 
(3) 011460 001401 BEQ TST51 7 7BR IF SAME 
(1) 011462 104020 ERROR 20 : INCORRECT ADDRESS MAKER DATA 
(1) : RESOLUTION = 7 GAIN = 1 ZB ENABLE = 0 
958 MADRE SSAASZAL£LZLS£LES£LASALALSALSLALLELE SEES EEE SESE ESSE SRR RR ESR RS RR ARS SS 
(4) *STEST 51 TEST ADDRESS MAKER =- MATRIX MODE - RES = 7 GAIN = O ZB ENABLE = 
(4) PETTITT IIIITIII TTI ELL ie 
(3) 011464 000004 TST51: SCOPE 
(2) 011466 012737 000010 001160 MOV #10, $TIMES ::D0 10 ITERATIONS 
(1) 011474 012777 004000 170254 MOV ACLRALL,@SFR sCLEAR DEVICE 
(1) 911502 012777 000014 170246 MOV #TSTDMA! TSTCON, asFR ‘SET ‘TEST DMA AND CONTROL'’ 
(1) 011510 012777 004036 170230 MOV #60 LOAD RESOLUTION, GAIN, ZB ENABLE VALUE 
(1) 011516 052777 170232 RIS ATESTI OSFR SENABLE ‘ TEST 
(1) 011524 000001 170214 BIS #B1T0 *SET ENABLE 
(1) 011532 042777 000002 170216 BIC WTESTZ,aSFR :DISABLE "TEST 2°* PULSES 
(1) 011540 017737 170214 001126 MOV @ADM, SBDDAT “READ THE ADDRESS DATA MAKER 
(1) 011546 012737 053527 001124 MOV #053827 $GDDAT [LOAD EXPECTED VALUE 
(1) 011554 023737 001124 001126 CMP SGDDAT , $BDDAT * COMPARE EXPECTED TO READ 
(3) 011562 001401 BEQ TST52 ::BR IF SAME 
(1) 011564 104020 ERROR 20 ; INCORRECT ADDRESS MAKER DATA 
(1) s RESOLUTION = 7 GAIN = 0 7B ENABLE = 1 
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CZNCCB.P11 © -31-AUG-79 11:21 T52 Ss TEST ADDRESS MAKER - MATRIX MODE - RES = 6 GAIN = 0 ZB ENABLE = 0 SEQ 0050 
960 3 A peck Lampton gah gen aan car Mall pe ita tin eign 
(4) S*TEST 52 TEST ADDRESS MAKER = MATRIX MODE - RES = 6 GAIN = 0 ZB ENABLE = 0 
(4) J LEAR RARE AEE ERE EER AREER EERE EEERERRAREEREEREREREEEREKEREREREER EH 
(3) 011566 TST52: SCOPE 
(2) 011570 012737 000010 001160 MOV —s- #10, STIMES ::D0 10 ITERATIONS 
(1) 011576 012777 004000 170152 MOV —- ACLRALL , @SFR :CLEAR DEVICE : 
(1) 011604 012777 000014 170144 MOV §- ATSTDMAITSTCON,@SFR =; SET_""TEST DMA AND CONTROL 
(1) 011612 012777 000034 170126 MOV #34, aCSR LOAD RESOLUTION, GAIN, ZB ENABLE VALUE 
(1) 011620 052777 000002 170130 BIS - #TESTZ,@SFR TENABLE ‘TEST 2° PULSES 
(1) 011626 052777 000001 170112 BIS #BITO,@CSR SET ENABLE NCV11, 
(1) 011634 042777 17011., BIC —- #TESTZ,aSFR DISABLE "TEST Z'* PULSES 
(1) 011642 017737 170112 001126 MOV —- @ADM, SBDDAT READ THE ADDRESS DATA MAKER 
(1) 011650 012737 001406 001124 MOV #1406, SGDDAT ZLOAD EXPECTED VALUE 
(1) 011656 023737 001124 001126 CMP $GDDAT , SBDDAT COMPARE EXPECTED TO READ 
(3) 011664 001401 BEQ TST53 ::BR IF SAME 
(1) 011666 104020 ERROR 20 ; INCORRECT ADDRESS MAKER DATA 
(1) RESOLUTION = 6 GAIN = 0 ZB ENABLE = 0 
961 MARAAAALASLALAAASLLASAALASASALASASALASALALS ELAR ARS ARRAS ARRAS R DSSS 
(4) ISTEST 53 TEST ADDRESS MAKER - MATRIX MODE - RES = 6 GAIN = 1 ZB ENABLE = 0 
(4) MARAE RASALASLALLSALEA SALAS AARS SSAA RSE ELAS A RRA R RRR SAAR LSD SSS 
(3) 011670 000004 18153: SCOPE 
(2) 011672 012737 000010 001160 MOV «#10, STIMES ::D0 10 ITERATIONS 
(1) 011700 012777 004000 170050 MOV = ACLRALL , @SFR CLEAR DEVICE 
(1) 011706 012777 000014 170042 MOV - #TSTDMAITSTCON,@SFR =; SET "TEST DMA AND CONTROL"’ 
(1) 011714 012777 002034 170024 MOV #2034,aCSR LOAD RESOLUTION, GAIN, ZB ENABLE VALUE 
(1) 011722 052777 000002 170026 BIS - #TESTZ,aSFR iE “TEST Z'” PULSES 
(1) 011730 052777 000001 170010 BIS  #BITO,aCSR SET ENABLE NCV11 
(1) 011736 042 170012 BIC ——- #TESTZ,aSFR DISABLE "TEST Z'* PULSES 
(1) 011744 017737 170010 001126 MOV —@ADM, SBDDAT :READ THE ADDRESS DATA MAKER 
(1) 011752 012737 053656 001124 MOV 53656. SCDDAT ZLOAD EXPECTED VALUE 
(1) 011760 023737 001124 001126 CMP —s- SGDDAT . SBDDAT TCOMPARE EXPECTED TO READ 
(3) 011766 001401 BEQ = TST54 ::BR IF SAME 
(1) 011770 104020 ERROR 20 ; INCORRECT ADDRESS MAKER DATA 
(1) ; RESOLUTION = 6 GAIN = 1 ZB ENABLE = 0 
962 DL RARER AREA EERE RAKE EREEKREREREKEREEEKEEREEEE 
(4) Z*TEST 54 TEST ADDRESS MAKER - MATRIX MODE - RES = 6 GAIN = 0 ZB ENABLE = 1 
(4) 2 3 RARER EKEKEEKEREEARKEERAEKEAAERAERERAEEARERAKEAKEREEKEKEREREEEEEEKEKEEKE 
(3) 011772 000004 T5154: SCOPE 
(2) 011774 012737 000010 001160 MOV #10, STIMES ::D0 10 ITERATIONS 
(1) 012002 012777 004000 167746 MOV = ACLRALL , @SFR CLEAR DEVICE 
(1) 012010 012777 000014 167740 MOV —- #TSTDMA'TSTCON, aSFR SET "TEST DMA AND CONTROL" 
(1) 012016 012777 004934 167722 MOV #4034, @CSR LOAD RESOLUTION, GAIN, ZB ENABLE VALUE 
(1) 012024 052777 000002 167724 BIS - #TEST2Z,aSFR ZENABLE ‘'TEST 2°" PULSES 
(1) 012032 052777 000001 167706 BIS _ #BITO,@CSR SET ENABLE NCV11 
(1) 012040 042777 000002 167710 BIC —- #TESTZ, asFR ;DISABLE "TEST 2°' PULSES 
(1) 012046 017737 167706 001126 MOV — @ADM_ SBDDAT READ THE ADDRESS DATA MAKER 
(1) 012054 012737 125526 001124 MOV —- #125526, SGDDAT ZLOAD EXPECTED VALUE 
(1) 012062 023737 001124 001126 CMP —- $GDDAT , SBDDAT COMPARE EXPECTED TO READ 
(3) 012070 001401 BEQ  =—- TSTS5 ::BR IF SAME 
(1) 012072 104020 ERROR 20 ZINCORRECT ADDRESS MAKER DATA 
a) ; RESOLUTION = 6 GAIN = 0 ZB ENABLE = 


m4 
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CZNCCB.P11 -31-AUG-79 17:21 T55 ‘TEST ADDRESS MAKER = MATRIX MODE = RES = 5 GAIN = 0 ZB ENABLE = 0 SEQ 0051 


FERRARA REREAERERERAREEARRERREEEERERREEERRARRERREE RRR 
:STEST 55 TEST ADDRESS MAKER = MATRIX MODE - RES = 5 GAIN = 0 ZB ENABLE = 0 
RRR AEKAEAEERAKRAKEAKEEAKEAERKEKERAEKEEAKEARERRHEEREKAERE 
TST55: 
#10,$TIMES 3:D0 10 ITERATIONS 
#CLRALL ,@SFR ;CLEAR_ DEVICE 
#TSTDMA! TSTCON,@SFR :SET “TEST a AND CONTROL‘ 
#32,aCSR UTION, GAIN, ZB ENABLE VALUE 
Ate — 7'” PULSES 


#B 

#TESTZ, aSFR ES 

@ADM, SBDDAT ;READ THE oo DATA MAKER 

#402, $GDDAT ;LOAD EXPECTED VALUE 

$GDDAT, SBDDAT >; COMPARE EXPECTED TO READ 

TST56 7 BR IF SAME 

20 ; INCORRECT ADDRESS MAKER DATA 
RESOLUTION = 5 GAIN = 0 ZB ENABLE = 0 


FERRARA EERE EEH 


SRTEST 56 TEST ADDRESS MAKER ~- MATRIX MODE - RES = 5 GAIN = 1 ZB ENABLE = 0 


[RAI IRIS IES II IIIS SISOISIIOISISISIIOI IIIS 


TST56: 
#10,S$TIMES ::D0 10 ITERATIONS 
#CLRALL,a@SFR : 

#TSTDMA! TSTCON, asFR 

#2032,@ 

FTESTI OSFR 

#B1T0,acSR 

ATESTZ,aSFR 

@ADM, SBDDAT 

#25526, $GDDAT CTED VALUE 
001126 SGDDAT . SBDDAT : COMPARE EXPECTED TO READ 

TST57 7 7BR IF SAME 

20 ; INCORRECT ADDRESS MAKER DATA 

; RESOLUTION = 5 GAIN 7B ENABLE = 0 
a on om oir MS ees BB st 


:RTEST 57 TEST ADDRESS MAKER ~- MATRIX MODE - RES = 5 GAIN = 0 ZB ENABLE = 1 


MmASASAASA£LASA SALSA AL LAA SALES ALAR ESA SESE RARER ARS REAR RAR RAS SSS SS 


18157: 
#10, STIMES 3:D0 10 ITERATIONS 
#CLRALL, a@SFR sCLEAR DEVICE 
#TSTDMA!TSTCON, aSFR SET ‘‘TEST DMA AND CONTROL’ 
#4032,aCSR ; LOAD RESOLUTION, GAIN, ZB ENABLE VALUE 
#TESTZ .@SFR 7°” PULSES 


#B1T0,a 

#TESTZ,aSFR : ES 

@ADM, SBDDAT [READ THE ADDRESS DATA MAKER 

#52452, $GDDAT [LOAD EXPECTED VALUE 

SGDDAT . SBDDAT [COMPARE EXPECTED TO READ 

TST60 ::BR IF SAME 

20 > INCORRECT ADDRESS MAKER DATA 
RESOLUTION = 5 GAIN = 0 ZB ENABLE = 


BOL LL LLL PF 
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T60 TEST ADDRESS MAKER = MATRIX MODE = RES = 4 GAIN = 0 ZB ENABLE = 0 


ee 


;*TEST 60 TEST ADDRESS MAKER = MATRIX MODE - RES = 4 GAIN = 0 ZB ENABLE = 


MPR ARSAASZASZAALAAALAALELALALE LE SAREE ERE E ARREARS RERRR RRR RRR RASA DES 


TST60: 
#10,$TIMES ;;D0 10 ITERATIONS 
#CLRALL ,@SFR 3 
#TSTDMA!TSTCON,@SFR ° yi “hy te F 
#30,aCSR 
MTESTZ,@SFR 
#B1T0,aCSR 
#TESTZ,@SFR ; S 
AT “READ THE ADDRESS DATA MAKER 
‘LOAD EXPECTED VALUE 
i COMPARE EXPECTED TO READ 


AME 
; INCORRECT ADDRESS MAKER DATA 
RESOLUTION = 4 GAIN = 0 ZB ENABLE = 0 


Ps 
FO ge the a eau nee + ener pmlogger bet alec atten 


:*TEST 61 TEST ADDRESS MAKER = MATRIX MODE - RES = 4 GAIN = 1 ZB ENABLE = 


FFARR AREER EERE REEEREREREEREERERREEEEREERERERE EEE 


TST61: 
#10, $TIMES 3:D0 10 ITERATIONS 
#CLRALL ,@SFR eCEEAR DEVICE 
#TSTDMA!TSTCON, @SFR T **TEST DMA AND CONTROL"’ 
#2030,a ‘LOAD RESOLUTION, GAIN, ZB ENABLE VALUE 
WIESTIOSSFR PULSES 
#B1T0,aCSR 


ATESTZ,aSFR E SES 

@ADM, SBDDAT “READ THE ADDRESS DATA MAKER 

#012726, $GDDAT ‘LOAD EXPECTED VALUE 

SGDDAT , $BDDAT * COMPARE EXPECTED TO READ 

TST62 ;2:BR IF SAME 

20 s INCORRECT ADDRESS MAKER DATA 
RESOLUTION = 4 GAIN = 1 ZB ENABLE = 0 


SRERAERAEREEKEREAAREAERAREAEREEKEEKERAEKEKEEKEEEREKKEKEKREKEEEKEKEKEEEKEKEEKEKEEKE 


SRTEST 62 TEST ADDRESS MAKER - MATRIX MODE - RES = 4 GAIN = 0 ZB ENABLE 


TTT TIITITITITITITIIIL TTL TELL LLL LLL ELLE ih iie 


TST62: 
#10,STIMES 7:D0 10 ITERATIONS 
aSFR 
we F 


#BITO,aCSR 
#TESTZ,aSFR 
THE ADDRESS DATA BAKER 


@ADM, SBDDAT = RE 
#025252, $GDDAT [LOAD EXPECTED VALUE 
001126 SGDDAT , $BDDAT = COMPARE EXPECTED TO READ 
TST63 a3 IF SAME 
20 > INCORRECT ADDRESS MAKER DATA 
RESOLUTION = 4 GAIN = 0 ZB ENABLE = 


0 


0 


= 1 


SEQ 0052 





B 
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CCB.P11 | 31-AUG-79 TEST ADDRESS MAKER = MATRIX MODE - RES = 3 GAIN = 0 ZB ENABLE = 0 SEQ 0053 
972 Nee ee ee eee ee 

(4) S*TEST 63 TEST ADDRESS MAKER = MATRIX MODE - RES = 3 GAIN = 0 ZB ENABLE = 0 
(4) JF RRAAAAARARERARARRERAERAARREAERAEAERRRERERERRRRRRAAAKRARRAERRRERRREREH 

(3) 012710 000004 1163: SCOPE 

(2) 012712 012737 000010 001160 MOV #10, $TIMES ::D0 10 ITERATIONS 

(1) 012720 012777 004000 167030 MOV #CLRALL,@SFR ;CLEAR_DEVICE “. 

(1) 012726 012777 000014 167022 MOV #TSTDMA!TSTCON, aSFR SSET ‘TEST DMA AND CONTROL 

(1) 012734 012777 000026 167004 MOV #26,aCSR LOAD RESOLUTION, GAIN, ZB ENABLE VALUE 
(1) 012742 052777 000002 167006 BIS #TESTZ,aSFR TENABLE ‘TEST 2'" PULSES 

(1) 012750 052777 000001 166770 BIS #BITO,acSR ‘SET ENABLE 1 

(1) 912756 04 166772 BIC #TESTZ,aSFR ‘DISABLE "TEST 

(1) 012764 017737 166770 001126 MOV @ADM, [READ THE ADDRESS DATA MAKER 

(1) 012772 012737 000000 001124 MOV #0, $GDDAT SLOAD EXPECTED VALUE 

(1) 013000 023737 001124 001126 CMP $GDDAT , $8DDAT = COMPARE EXPECTED TO READ 

(3) 013006 001401 BEQ TST64 ::BR IF SAME 

(7) 013010 104020 ERROR 20 : INCORRECT ADDRESS MAKER DATA 

(1) ; RESOLUTION = 3 GAIN = 0 ZB ENABLE = 0 

973 FERRARA ERR EREREAREEEREREEEEAREERRREERREREERERERRRRERRREKEEH 

(4) T*TEST 64 TEST ADDRESS MAKER - MATRIX MODE - RES = 3 GAIN = 1 ZB ENABLE = 0 
(4) TPOPRSSAASASAAAZASZALALLASLALASAE SESE SESE RSE ERR RRR RASA R AS AR ASRS ASSES SS 

(3) 013012 000004 78164: SCOPE 

(2) 013014 012737 000010 001160 MOV #10,$TIMES ::DO 10 ITERATIONS 

(1) 013022 012777 004000 166726 MOV ACLRALL,a@SFR :CLEAR DEVICE 

(1) 013030 012777 000014 166720 MOV #TSTDMA!TSTCON, aSFR ‘SET ‘TEST DMA AND CONTROL’ 

(1) 013036 012777 002026 166702 MOV #2026, aCSR [LOAD RESOLUTION, GAIN, ZB ENABLE VALUE 
(1) 013044 052777 000002 166704 BIS ATESTZ,aSFR TENABLE ‘TEST 2°" PULSES 

(1) 013052 052777 000001 1 BIS #B1TO,aCcSR SET ENABLE NCV11 

(1) 013060 042777 000002 166670 BIC #TESTZ,aSFR “DISABLE "TEST Z°* PULSES 

(1) 013066 017737 166666 001126 MOV @ADM, SBDDAT [READ THE ADDRESS DATA MAKER 

(1) 013074 012737 005252 001124 MOV #5252, $GDDAT ‘LOAD EXPECTED VALUE 

(1) 013102 023737 001124 001126 CMP SGDDAT , SBDDAT * COMPARE EXPECTED TO READ 

(3) 013110 001401 BEQ TST65 ::BR IF SAME 

(1) 013112 104020 ERROR 20 ; INCORRECT ADDRESS MAKER DATA 

(1) : RESOLUTION = 3 GAIN = 1 ZB ENABLE = 0 

974 DLR RRR EERE EEREREKEREEREREEREEREEEH 

(4) T*TEST 65 TEST ADDRESS MAKER - MATRIX MODE - RES = 3 GAIN = 0 ZB ENABLE = 1 
(4) FLARE EERE RARER EREREREEAEREREEERAEEERREAEERREEERE RSE 

(3) 013114 000004 T5165: SCOPE 

(2) 013116 012737 000010 001160 MOV #10, $TIMES ::D0 10 ITERATIONS 

(1) 013124 012777 004000 166624 MOV #CLRALL,@SFR :CLEAR DEVICE 

(1) 013132 012777 000014 166616 MOV #TSTDMA!TSTCON, aSFR ‘SET "TEST DMA AND CONTROL’ 

(1) 013140 012777 004026 166600 MOV #4026, aCSR LOAD RESOLUTION, GAIN, ZB ENA“LE VALUE 
(1) 013146 052777 000002 166602 BIS #TESTZ,aSFR TENABLE ‘TEST 2'° PULSES 

(1) 013154 052777 000001 166564 BIS #BITO,aCSR SET ENABLE NCV11 

(1) 042777 166566 BIC #TESTZ,aSFR :DISABLE "TEST 2'* PULSES 

(1) 013170 017737 166564 001126 MOV @ADM, SADDAT READ THE ADDRESS DATA MAKER 

(1) 013176 012737 012424 001124 MOV #12624, $GDDAT SLOAD EXPECTED VALUE 

(1) 013204 023737 001124 001126 CMP SGDDAT . $8DDAT ‘COMPARE EXPECTED TO READ 

(3) 013212 001401 BEQ TST66 ::BR IF SAME 

(1) 013214 104020 ERROR 20 > INCORRECT ADDRESS MAKER DATA 

1) : RESOLUTION = 3 GAIN = 0 ZB ENABLE = 1 
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TEST ADDRESS MAKER = MATRIX MODE - RES = 2 GAIN = 0 ZB ENABLE = 0 SEQ 0054 


ee ee 


;*TEST 66 TEST ADDRESS MAKER = MATRIX MODE - RES = 2 GAIN = 0 7B ENABLE = 0 


SL RARER EREARRAEREEEEERREERERARRERERRER EERE RERERRH 


$166: SCOPE 
MOV #10, $TIMES ::D0 10 ITERATIONS 
MOV ACLRALL,@SFR SCLEAR DEVICE 
MOV #TSTDMA! TSTCON, asFR ‘SET ‘TEST DMA AND CONTROL'' 
MOV #24,a LOAD RESOLUTION, GAIN, ZB ENABLE VALUE 
BIS STESTS OSFR ‘ENABLE ‘TEST 2’ PULSES 
BIS WBITO,aCSR *SET ENABLE NCV11 
BIC ATESTZ,aSFR “DISABLE "TEST Z°* PULSES 
MOV @ADM, SBDDAT [READ THE ADDRESS DATA MAKER 
MOV #0, $GDDAT [LOAD EXPECTED VALUE 
CMP SGDDAT , SBDDAT * COMPARE EXPECTED TO READ 
BEQ TST67 ::BR IF SAME 
ERROR 20 >: INCORRECT ADDRESS MAKER DATA 
RESOLUTION = 2 GAIN = 0 ZB ENABLE = 0 
MABBABSBASASAAALAL£L£ 2 SESSLER ESSESE RS ER ARES ASERRSE AAS AASR SALAS ESAS AAS S SY 
SSTEST 67 TEST ADDRESS MAKER - MATRIX MODE - RES = 2 GAIN = 1 ZB ENABLE = 0 
SHIGE I IIIS IEIISISIIOIS UII UIEIEIDUIIOIOIIOE III Ook 
1S167: SCOPE 
MOV #10, S$TIMES ::DO 10 ITERATIONS 
MOV #CLRALL,@SFR ; CLEAR DEVICE 
MOV #TSTDMA! TSTCON, asFR SET ‘TEST DMA AND CONTROL’ 
MOV #2024,@ LOAD RESOLUTION, GAIN, ZB ENABLE VALUE 
BIS PTESTS OSPR TENABLE ‘TEST 2°’ PULSES 
BIS WBITO,aCSR ‘SET ENABLE NCV11 
BIC #TESTZ,aSFR :DISABLE "TEST 2'* PULSES 
MOV @ADM, SADDAT READ THE ADDRESS DATA MAKER 
MOV #2552, $GDDAT ;LOAD EXPECTED VALUE 
CMP SGDDAT , SBDDAT COMPARE EXPECTED TO READ 
BEQ TST70 ::BR IF SAME 
ERROR 20 > INCORRECT ADDRESS MAKER DATA 
RESOLUTION = 2 GAIN = 1 ZB ENABLE = 0 


. 
DLR REHEEREREREEEREREEREREKEEK 


:*TEST 70 TEST ADDRESS MAKER - MATRIX MODE - RES = 2 GAIN = 0 ZB ENABLE = 


FLARE RARER REE EERE EERE EEE 


TST70: SCOPE 


MOV #10,$TIMES ::DO0 10 ITERATIONS 

MOV ACLRALL,a@SFR =CLEAR DEVICE 

MOV #TSTDMA! TSTCON, aSFR :SET "TEST DMA AND CONTROL" 
MOV #4024, aCSR LOAD RESOLUTION, GAIN, ZB ENABLE VALUE 
BIS aTESTZ, ash ‘ENABLE “TEST 2°" PULSES 

BIS #BITO,acSR SET ENABLE NCV11 

BIC WIEST?" acre ‘DISABLE "TEST 2°" PULSES 
MOV @ADM, SBDDA ‘READ THE ADDRESS DATA MAKER 
MOV #5224, SeDDAT [LOAD EXPECTED VALUE 

CMP S$GDDAT, SBDDAT *COMPARE EXPECTED TO READ 
BEQ TST71 ; BR IF SAME 


ERROR 20 ; INCORRECT ADDRESS os « DATA 
RESOLUTION = 2 GAIN = 0 ZB ENABLE = 


D5 
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FLARE ARERR EERE REEREEEREEEERERERAEREEEREREREREERERER 
s*TEST 71 TEST ADDRESS MAKER = MATRIX MODE - RES = 1 GAIN = O ZB ENABLE = 0 
fF RARER ERRRARAREERRARAERERARRRERRARRERARAEREARARRERERH 
TST71: 

#10,$TIMES 3:D0 10 ITERATIONS 

#CLRALL -@SFR ;CLEAR DEVICE 

ATSTDMAITSTCON, aSFR ;SET ‘TEST DMA AND CONTROL" 

R ;LOAD RESOLUTION, GAIN, ZB ENABLE VALUE 
+ ENABL 7°” PULSES 


S 
;READ THE ao DATA MAKER 
#0, $GDDAT ;LOAD EXPECTED VALUE 
SGDDAT , SBDDAT ; COMPARE EXPECTED TO READ 
TST72 77BR IF SAME 
20 s INCORRECT ADDRESS MAKER DATA 
RESOLUTION = 1 GAIN = 0 ZB ENABLE = 0 


MARRS AASALALSLASALALALLESESALASSES SASL SERA RSS A RRR AAA ERA SAAR SDSS S| 


SRTEST 72 TEST ADDRESS MAKER = MATRIX MODE - RES = 1 GAIN = 1 ZB ENABLE = 0 


DUES E IEEE OIOIOIIIIISISIIISISIOOOOIOIUIIIDITIOISII OO IIIUIOIIIIEIIO ODIO I 


TST72: 
#10,$TIMES 3:D0 10 ITERATIONS 
AMCLRALL ,@SFR ;CLEAR_DEVICE 
ATSTDMA! TSTCON, @SFR ; AND CONTROL*’ 
S ;LOAD RESOLUTION, GAIN, ZB ENABLE VALUE 
; ENABL “PULSES 


Fe tt ae a et ee et a te a a i ee 
— Wes tS SS NED 


ee Nee ee ee ae ee eS oa ae 


8 
= 
od and ad 
on-n 


FRIST 


#TESTz a asFR : S 
‘READ THE ADDRESS DATA MAKER 
es SCAT [LOAD EXPECTED VALUE 
SGDDAT , $BDDAT > COMPARE EXPECTED TO READ 
TST73 ::BR IF SAME 
20 > INCORRECT ADDRESS MAKER DATA 
RESOLUTION = 1 GAIN = 1 ZB ENABLE = 0 


’ 
PO tearm gang ne agmatine ng a matic get nage! Sag ap Sy 


;*TEST 73 TEST ADDRESS MAKER - MATRIX MODE - RES = 1 GAIN = 0 ZB ENABLE = 


MmADRALSESALAAL£LALASLSALALEAAASLESASASLAS EARLE SARA AAS ESAS ARRAS SALES SSD | 


18173: 
#10,$TIMES 3:D0 10 ITERATIONS 
:CLEAR_DEVICE 
SET ‘TEST DMA AND CONTROL" 
sLOAD RESOLUTION, ranted 7B ENABLE VALUE 


$ PULSES 
;READ THE ADDRESS DATA MAKER 
;LOAD EXPECTED VALUE 
; COMPARE EXPECTED TO READ 
7 7BR IF SAME 
; INCORRECT ADDRESS MAKER DATA 
RESOLUTION = 1 GAIN = 0 7B ENABLE = 1 


(1) 
(1) 
“1) 
(1) 
(1) 
(1) 
(1) 
(3) 
(1) 
(1) 
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ad od aed ad od od 
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ALAS moo 
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C2NCCB.P11 —-31=AUG-79 17:21 174 ‘TEST ADDRESS MAKER = LIST MODE - 7B ENABLE = 0 GAIN = 0 SEQ 0056 
PLEA EEEEERE KEE EREREREREREEEEEKEERERERERE EH 
(3) I*TEST 74 TEST ADDRESS MAKER - LIST MODE - ZB ENABLE = 0 GAIN = 0 
(3) FERRARA AARAEREARARRRRERARARRARKHAAARRERARARRAERERAARAAERAERARRAARARH 
(2) 014032 000004 18174: SCOPE 
(1) 014034 012737 000010 001160 MOV #10, STIMES ;;D0 10 ITERATIONS 
985 014042 012777 004000 165706 MOV = ACLRALL, @SFR CLEAR DEVICE 7 
014050 012777 000014 165700 MOV ATSTDMA'TSTCON,@SFR =; SET TEST ‘DMA AND CONTROL 
987 014056 012777 000000 165662 Mov - #0, aC ENSURE LIST MODE 
014064 052777 000002 165664 BIS _- ATESTZ,aSFR ZENABLE "‘TEST 2'' PULSES 
989 014072 052777 000001 165646 BIS #BITO,aCSR SET ENABLE NCV11 
990 014100 042777 000002 165650 BIC = - #TESTZ,aSFR DISABLE "TEST Z'* PULSE 
991 014106 017737 165646 001126 MOV —- @ADM, SADDAT READ THE ADDRESS MAKER VALUE 
992 014114 012737 003407 001124 MOV #3407, SGDDAT LOAD EXPECTED VALUE 
993 014122 023737 001124 001126 (MP —- SGDDAT, SBDDAT COMPARE EXPECTED TO READ 
994 014130 001407 BEQ =: TST75 ;;BR IF SAME 
995 014132 104021 ERROR 21 ; INCORRECT ADDRESS MAKER DATA 
996 RESOLUTION 7 <DEFAULT WHEN ZB IS NOT ENABLED> 
998 SL REE REEKEREKERKEREERREREEEEEEREREEREERKEEEEREEREEREREE EE 
(3) S*TEST 75 TEST ADDRESS MAKER - LIST MODE - ZB ENABLE = 1 GAIN = 0 
(3) FLARE EERE REE RKEE EERE REE ERE REE EEE 
(2) 014134 000004 75175: SCOPE 
(1) 014136 012737 000010 001160 MOV «#10, STIMES ;:D0 10 ITERATIONS 
014144 012777 004000 165604 MOV = ACLRALL, @SFR CLEAR DEVICE = 
1000 014152 012777 000014 165576 MOV = ATSTDMA'TSTCON,@SFR =; SET TEST ‘DMA AND CONTROL 
1001 014160 012777 004000 165560 mov #4000, aCSR ENSURE LIST MODE AND ZB ENABLED 
1002 014166 052777 000002 165562 BIS —- ATESTZ,aSFR ZENABLE ""TEST 2°' PULSES 
1003 014174 052777 000001 165544 BIS 1T0,aCSR :SET ENABLE NCV11 
1004 014202 042777 000002 165546 BIC —- #TESTZ,aSFR DISABLE "TEST Z'* PULSES 
1005 014210 017737 165544 001126 MOV —@ADM, SBDDAT :READ THE ADDRESS MAKER VALUE 
1006 014216 012737 052452 001124 MOV #52452, $GDDAT LOAD EXPECTED VALUE 
1007 014224 023737 001124 001126 CMP —- $GDDAT , SBDDAT COMPARE EXPECTED TO READ 
008 014232 001401 BEQ  —*TST76 ::BR IF SAME 
1009 014234 104021 ERROR 21 ; INCORRECT ADDRESS MAKER DATA 
1010 RESOLUTION 5 <DEFAULT WHEN ZB IS ENABLED> 
1012 FLARE RARER ARERR EERE ARERR REERERE 
(3) Z*TEST 76 TEST ADDRESS MAKER - LIST MODE - 7B ENABLE = 0 GAIN = 
(3) J LAA AAA RARER EEERAEERAREEREEREERAEAERRAERAERAERAERAEERAEAARREERERR EHS 
(2) 014236 000004 1S176: SCOPE 
(1) 014240 012737 000010 001160 MOV —- #10, STIMES ::D0 10 ITERATIONS 
1013 014246 012777 004000 165502 MOV —- ACLRALL , @SFR CLEAR THE DEVICE 
1014 014254 012777 000014 165474 MOV = ATSTDMA'TSTCON,@SFR =: SET TEST ‘DMA AND CONTROL"’ 
1015 014262 012777 002000 165456 MoV #2000, aCSR :SET GAIN FLOP. 
1016 014270 052777 000002 165460 BIS —- ATEST2Z,aSFR ZENABLE "'TEST 2°* PULSES 
1017 014276 052777 000001 165442 BIS  #BITO,aCSR ENABLE THE NCV11 
1018 014304 042777 000002 165444 BIC  —- ATESTZ,aSFR :DISABLE THE “"TEST 7Z°* PULSES 
1019 014312 017737 165442 001126 MOV — @ADM, SBDDAT READ THE ADDRESS MAKER VALUE 
1920 014320 012737 127657 001124 MOV «#127657, SGDDAT “LOAD THE EXPECTED 
1021 014326 023737 001124 001126 CMP ss SGDDAT , S8DDAT : COMPARE 
1022 014334 001401 BEQ =‘ TST77 ::BR IF SAME 
1023 014336 104021 ERROR 21 : INCORRECT ADDRESS MAKER DATA 
1024 RESOLUTION 7 - GAIN FLOP SET 
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:21 177 ENABLE A ONE WORD TRANSFER SECTION LIST MODE SEQ 0057 

1029 M4 FERRARA RAAAAARRAAERERAEREERARERRERERRRARRERRERRARRRRHARRAEEHRA ED 

(3) TEST 77 ENABLE A ONE WORD TRANSFER SECTION LIST MODE 

(3) fC RRARAARAAAAARARARERARARAAERAAAARRAARAARAAAARARAARAARAAAERERAERAEE 

(2) 014340 000004 1$177: SCOPE 

(1) 014342 012737 000040 001160 MOV #40, $TIMES ::D0 40 ITERATIONS 
1030 014350 012777 004 165400 MOV #CLRALL@SFR ;CLEAR THE DEVICE 
1031 014356 012737 125252 060000 MOV #125252 BUF 0 [PRIME TARGET BUFFER 

032 014 012777 011110 165356 MOV #11110, a0FF [LOAD THE OFFSET VALUE WITH A NUMBER 
1033 014372 012777 (177777 «165352 MOV #-1 ,awCR [SET UP 1 WORD TRANSFER 
1034 014400 012777 060000 165346 MOV #BUF 0, @BAR :LOAD BUS ADDRESS FOR RESULT 
1035 014406 012777 000014 165342 MOV #TSTDMA!TSTCON, @SFR TENABLE TEST CONTROL AND DMA FLOPS 
036 014414 052777 000001 165324 BIS #8170, aCSR ENABLE DEVICE 
1037 014422 052777 000002 165326 BIS #TEST2Z,aSFR ENABLE "TEST Z'' PULSES 

(1) 014430 042777 000002 165320 BIC #TESTZ.aSFR :DISABLE ‘TEST Z*' PULSES 
1038 014436 000240 NOP 
1039 014440 000240 NOP 
1040 014442 000240 NOP 
1041 014444 052777 010000 165304 BIS #B1T12,aSFR ALLOW 1 DMA TRANSFER 
1042 014452 000240 NOP 
1043 014454 000240 NOP 
1044 014456 000240 NOP 
1045 014460 017737 165262 001126 MOV aCSR,$BDDAT :READ STATUS 
1046 014466 012777 004000 165262 MOV #CLRALL ,@SFR [RESET THE DEVICE 
1047 014474 012737 040200 001124 MOV #40200, $GDDAT [LOAD EXPECTED 
1048 014502 023737 001124 001126 CMP S$GDDAT . SBDDAT TEST STATUS 
1049 014510 001402 BEQ 4$ :;BR IF EXPECTED 
1050 014512 104036 ERROR 36 [UNEXPECTED STATUS AFTER A 1 WORD TRANSFER 
1051 014514 000453 BR TST100 33 
1052 014516 017737 165232 001126 48: MOV @BAR , SBDDAT ;READ BUS ADDRESS 
1053 014524 012737 060002 001124 MOV #BUF 0+2, $GDDAT [LOAD EXPECTED 
1054 014532 023737 001124 001126 CMP SGDDAT , $BDDAT =COMPARE VALUES 
1055 014540 001401 BEQ 1$ ::BR IF SAME 
1056 014542 104022 ERROR 22 ; INCORRECT BUS ADDRESS VALUE 
1057 :AFTER A’1 WORD TRANSFER 
1059 014544 017737 165202 001126 18: MOV aWCR,$BDDAT ;READ W.C. REGISTER 
1060 014552 012737 000000 001124 MOV #0, $GDDAT [LOAD EXPECTED VALUE 
1061 014560 023737 001124 001126 CMP SGDDAT , $BDDAT >COMPARE VALUES 
1062 014566 001401 BEQ 2$ :;BR IF SAME 
1063 014570 104023 ERROR 23 INCORRECT WORD COUNT REGISTER VALUE 
1064 ;AFTER A’1 WORD TRANSFER 
1065 014572 005037 001124 2s: CLR SGDDAT :CLEAR THE EXPECTED VALUE 
1066 014576 017737 165146 001126 MOV a0FF ,SBDDAT READ THE OFFSET REGISTER 
1067 014604 001401 BEQ 3$ :;BR IF CLEARED 
1068 014606 104024 ERROR 24 OFFSET REG. FAILED TO CLEAR AFTER 
1069 :1 LIST MODE x 
1070 014610 013737 001126 38: MOV BUF 0, SBDDAT GET BUFFER DATA 
1071 014616 012737 003407 001124 MOV 73607) S$GDDAT [LOAD EXPECTED 
1072 014624 012737 001122 MOV #BUF 0; S$BDADR [LOAD BAD ADDRESS 
1073 014632 023737 001124 001126 CMP SGDDAT , $BDDAT > COMPARE DATA 


1074 014640 001401 BEQ TST100 ;;BR IF SAME 
1075 014642 104037 ERROR 37 STATUS WAS OK BUT DATA WAS INCORRECT 
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NCCB.P11  —-_31=AUG=79 11:21 1100. ENABLE A 512 WORD TRANSFER SECTION LIST MODE SEQ 0058 
1077 FF RAMAAARARAAAAARAAAARARAAAREAAARARAAARRARARARERAARARRARERARARAENS 
(3) SeTEST 100 ENABLE A 512 WORD TRANSFER SECTION LIST MODE 
(3) FF EAARARAAAAARAAAAAAARAARAERAAARRARRARAEAARAAARAAARAARRARAARARRARAEH 
(2) 014644 000004 t$7100: SCOPE " 
(1) 014646 012737 000040 001160 MOV #40, $TIMES ::DO 40 ITERATIONS 
1078 014654 012777 004000 165074 MOV #CLRALL @SFR :CLEAR THE DEVICE 
1079 014662 012700 060000 MOV WBUFO.R ‘LOAD BUFFER POINTER 
1080 014666 012720 125252 1$: MOV #125252, (RO) + “PRESET THE BUFFER WITH DATA 
1081 014672 020027 062000 CMP RO, ABUF 1 ‘TEST IF DONE 
1082 014676 001373 BNE 1$ ‘BR IF NOT 
1083 014700 012777 177000 165044 MOV #-512. ,awCR :SET UB 312. WORD TRANSFER 
1084 014706 012777 060000 165040 MOV #BUF 0, @BAR “LOAD BUS ADDRESS FOR RESULT 
1085 014714 012777 000014 165034 MOV #TSTDMA! TSTCON, aSFR ‘ENABLE fest CONTROL AND DMA FLOPS 
1086 014722 052777 000001 165016 BIS #81T0,aCSR TENABLE DEVICE 
1087 914730 012737 001000 002004 os MOV #512. .$TEMP ‘LOAD THE COUNTER 
(1) 014736 052777 000002 165012 BIS #TESTZ,aSFR ZENABLE "‘TEST 2'* PULSES 
(1) 014744 042777 000002 165004 BIC ATESTZ.aSFR “DISABLE ‘TEST 2°" bt SES 
1089 014752 052777 010000 164776 BIS #B1T12.aSFR [ALLOW 1 DMA TRANSFER 
1090 014760 005337 002004 DEC STEMP “FINISHED ALL WORDS? 
1091 014764 001364 BNE 2$ “BR UNTILL DONE 
1092 :THE TRANSFER IS NOW COMPLETE 
1093 014766 017737 164754 001126 MOV a@CSR,$BDDAT :READ STATUS 
1094 014774 012737 040200 001124 MOV #40200, $GDDAT LOAD EXPECTED STATUS 
1095 015002 023737 001124 001126 CMP $GDDAT . SBDDAT ‘COMPARE DAT 
109% 015010 001402 BEQ 3$ ::BR IF EXPECTED STATUS 
1097 015012 104036 ERROR 36 “UNEXPECTED STATUS AFTER 512 WORD TRANSFER 
1098 015014 000465 BR TST101 33 
1099 015016 005037 001124 38: CLR $GDDAT :CLEAR EXPECTED 
1100 015022 017737 164722 001126 MOV aOF F , $BDDAT ‘READ OFFSET REG. 
1101 015030 001401 BEQ 4$ ::BR IF CLEARED 
1102 015032 104006 ERROR 6 ‘UNEXPECTED OFFSET REGISTER BIT SET 
1103 015034 012777 004 164714 4$: MOV #CLRALL, asFR :CLEAR THE DEVICE 
1104 015042 017737 164706 001126 MOV BAR , SBDDAT READ BUS ADDRESS 
1105 015050 012737 062000 001124 MOV #BUF 1, $GDDAT ‘LOAD EXPECTED BAR VALUE 
1106 015056 023737 001124 001126 CMP $GDDAT , SBDDAT = COMPARE VALUES 
1107 001401 BEQ 5$ ::BR IF SAME 
1108 015066 104022 ERROR 22 : INCORRECT BUS ADDRESS VALUE AFTER A 1 WORD TRANSFER 
1110 015070 017737 164656 001126 5$: MOV awCR, $BDDAT :READ W.C. REGISTER 
1111 015076 012737 000000 001124 MOV #0, $GDDAT SLOAD EXPECTED W.C. VALUE 
1112 015104 023737 001124 001126 CMP $GDDAT , SBDDAT > COMPARE VALUES 
1113. 015112 001401 BEQ 6$ ::BR IF SAME 
1114 015114 104023 ERROR 23 : INCORRECT WORD COUNT REGISTER VALUE AFTER A 1 WORD TRANSFER 
1115 015116 012737 003407 001124 6$: MOV #3407, $GDDAT [LOAD EXPECTED DATA 
1116 015124 012737 001122 MOV #BUF 0. SBDADR *LOAD STARTING ADDRESS 
1117, 015132. 017737 163764 001126 7S: MOV aSADADR, $BDDAT ‘READ DATA WORD 
1118 015140 023737 001124 001126 CMP $GDDAT, $BDDAT “COMPARE DATA 
1119 015146 001401 BEQ 10$ ::BR IF EXPECTED 
1120 015150 104037 ERROR 37 : INCORRECT DATA IN LIST MODE XFER. 
1121 015152 062737 2 001122 10$: ADD #2, $BDA “UPDATE POINTER 
1122 015160 022737 062000 001122 CMP Ter On 102%.  SBDADR TEST IF END OF BUFFER 
1123 015166 001361 BNE 7$ ::BR IF NOT DONE 





H 
CZNCCB NCV11 _ DIAGNOSTIC MACY11 30G(1063) 31-AUG-79 13:10 PAGE 3 


8 
C2NCCB.P11 —-31=AUG=79 11:21 1101 - VERIFY “'TIMEOUT’’ FLOP SETS AND ‘CLR ALL*’ CLEARS IT SEQ 0059 

1125 SPREE EERE REET ERA REE RE EET EEREEREARERR EERE EEE 

(3) “RTEST 101 VERIFY ‘'TIMEOUT'' FLOP SETS AND "‘CLR ALL"’ CLEARS IT 

(3) PPUSTTSITSI SIS TI SSSI tTiveti itis itt it iit ii titi ttt iter tiers 

(2) 015170 000004 TST101: SCOPE 

(1) 015172 012737 000040 001160 MOV #40, $TIMES ::D0 40 ITERATIONS 

1126 015 012777 004000 164550 MOV AMCLRALL ,@SFR CLEAR DEVICE 

1127 015 012777 177777 164536 MOV #-1,awCR ‘LOAD W.C. REGISTER 

1128 015214 012777 000003 164526 MOV #3, Q0F F LOAD EXTENDED ADDRESS BITS 

1129 015222 012777 160000 164524 MOV #160000, aBAR ;LOAD BUS Sonthan ae i TO A NON-EXIENT ADDRE 
1130 015230 012777 000014 164520 MOV #TSTCON! TSTDMA, aSFR ;SET TEST CONTROL AND DMA 

1131 015236 012777 000016 164502 MOV #16,aCSR LOAD RESOLUTION TO VERIFY ‘‘SFR INiT’’ CLEARS 
1132 015244 052777 000001 164474 BIS #B1T0,aCSR ENABLE THE DEVICE 

1133 015252 052777 000002 164476 BIS ATESTZ,@SFR sENABLE ''TEST 2°" PULSES 

(1) 015260 042777 000002 164470 BIC ATESTZ,@SFR ;DISABLE ‘‘TEST 2°* PULSES 

1134 01 000240 NOP 
1135 015270 000240 NOP 
1136 015272 000240 . NOP 
1137 015274 052777 010000 164454 BIS #B1T12,aSFR ;ALLOW 7 DMA TRANSFER 

1138 015302 000240 NOP 
1139 015304 000240 NOP 
1140 015306 000240 NOP 
1141 015310 012737 140200 001124 MOV #B81T15!BIT14!BIT7,$GDDAT ;LOAD EXPECTED 

1142 015316 017737 164424 001126 MOV @aCSR,$BDDAT sREAD STATUS REG. 

1143 015324 100402 BMI 1$ BR IF ‘‘TIMEOUT’’ FLOP IS SET 

1144 015326 104025 ERROR 25 3" 'TIMEOUT’* FLOP FAILED TO SET 

1145 015330 000423 BR TST102 ae 

1146 015332 023737 001124 001126 1$: CMP S$GDDAT , SBDDAT ; COMPARE VALUES 

1147 015340 001401 BEQ 2$ ;3BR IF SAME 

1148 015342 104025 ERROR 25 3*'TIMEOUT’’ FLOP DID SET BUT FAILED TO GENERATE °° 
1149 015344 052777 004000 164404 2$: BIS ACLRALL .@SFR [GENERATE AN A ALL*’ TO CLEAR TIMEOUT FLOP 
1150 015352 012737 000200 001124 MOV #B1T7,$GDDAT [LOAD EXPECTED 

1151 015360 017737 164362 001126 MOV aCSR,$BDDAT READ STATUS 

1152 015366 023737 001124 001126 C SGDDAT , SBDDAT COMPARE VALUE 

1153 015374 001401 BEQ TST102 3;BR_IF SAME 

1154 015376 104025 ERROR 25 ; ‘CLR ALL'’ FAILED TO CLEAR TIMEOUT FLOP 

1155 LRA REE EERER EERE ERE ER EERE EERE ER 

(3) i*TEST 102 VERIFY ‘‘TIMEOUT’’ FLOP SETS AND ‘CLR TIMEOUT" CLEARS IT 

(3) LEAR REE EERE EERE ERE ER EERE ERE EE 

(2) 015400 000004 TST102: SCOPE 

(1) 015402 012737 000040 001160 MOV #40, $TIMES D0 40 ITERATIONS 

1156 015410 012777 004000 164340 MOV AMCLRALL ,@SFR :CLEAR DEVICE 

1157 015416 012777 177777 164326 MOV #-1,awCR ;LOAD W.C. REGISTER 

1158 015424 012777 164316 MOV #3, a0F F ; LOAD EXTENDED ADDRESS BITS 

1159 015432 012777 160000 164314 MOV #160000 , @BAR ;LOAD BUS ADDRESS REGISTER TO A NON-EXIENT ADDRE 
1160 015440 012777 000014 164310 MOV ATSTCON! TSTDMA, aSFR SET TEST CONTROL AND DMA 

1161 015446 052777 000001 164272 BIS #B1T0,aCSR > ENABLE THE DEVICE 

1162 015454 052777 000002 164274 BIS ATESTZ,@SFR SENABLE "TEST 2'* PULSES 

(1) 015462 042777 000002 164266 BIC ATESTZ,@SFR :DISABLE "TEST 2°’ PULSES 

1163 015470 000240 NOP 

1164 015472 000240 NOP 

1165 015474 000240 NOP 

1166 015476 052777 010000 164252 BIS #BIT12,aSFR :ALLOW 1 DMA TRANSFER 

1167 015504 000240 NOP 

1168 015506 000240 NOP 

1169 015510 000240 NOP 

1170 015512 012737 140200 001124 MOV #B1T15!BIT146!BIT7, $GDDAT LOAD EXPECTED 
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31-AUG-79 

VERIFY ‘‘TIMEOUT’’ FLOP SETS AND ‘‘CLR TIMEOUT'’ CLEARS IT SEQ 0060 

MOV —- @CSR, SBDDAT ;READ STATUS REG. 

BM | 1$ :BR IF ‘'TIMEOUT’’ FLOP IS SET 

ERROR 25 :"'TIMEOUT'’ FLOP FAILED TO SET 

AR TST103 

CMP —- $GDDAT , SBDDAT COMPARE VALUES 

BEQ = $ ::BR IF SAME 

ERROR 25 ;TIMEQUT’’ FLOP DID SET BUT FAILED TO GENERATE *' 

BIS  #BIT15,aSFR GENERATE AN ‘CLR TIMEOUT’’ TO CLEAR TIMEOUT FLOP 

MOV = #B1T14'BIT7, $GDDAT LOAD EXPECTED 

MOV CSR, SBDDAT READ STATUS 

CMP —- $GDDAT , SBDDAT COMPARE VALUE 

BEQ 1 :;BR_IF § 

ERROR 25 "CLR TIMEOUT’’ FAILED TO CLEAR TIMEOUT FLOP 
WER RARRASAAAARALAAAALAERAR AAA SAS RS RRR ES AAR RR ARRAS SRA RRR RARER ASSESS SD 

03 VERIFY ‘‘TIMEQUT'’ INTERRUPT 
Vin PORRRRARBASRASLLSSSSLLESERASARE RRR SARE SASSER RRR RARER ESAS RRR RAS SSS SE SO | 

SCOPE 

MOV #40, STIMES ;:D0 40 ITERATIONS 

MOV —- #CLRALL, aSFR CLEAR DEVICE 

MOV = #1, awCR LOAD W.C. REGISTER 

MOV «#3, @OFF LOAD EXTENDED ADDRESS BITS 

mov #160000, LOAD BUS ADDRESS REGISTER TO A NON-EXIENT ADDRE 

MOV - #TSTCONITSTDMA,aSFR «SET TEST CONTROL AND DMA 

MOV =: #0, = (SP) 

MoV #1, -(SP) 

RTI 

MOV = #2$, aVECTAO 

NOP 

NOP 

NOP 

NOP 

BIS  #BIT6!BITO,aCSR ENABLE THE DEVICE 

BIS  —- ATESTZ,aSFR ENABLE "'TEST Z°* PULSES 

BIC = ATESTZ.aSFR DISABLE "TEST Z'* PULSES 

NOP 

NOP 

NOP 

BIS - #BIT12,aSFR ALLOW 1 DMA TRANSGFER 

NOP 

NOP 

NOP 

CLR aC SR CLEAR ENABLE 

ERROR 26 :""TIMEOUT'’ FAILED TO INTERRUPT 

BR 3$ ::BR TO CLEAN UP 

(MP (SP) +, (SP) + CLEAN THE STACK 

CLR — aC SR 

MOV —- #CLRALL, @SFR CLEAR THE DEVICE 

MOV —s-VECTA1, @VECTAO ZRESET VECTOR 

CLR @VECTAI 
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T104 VERIFY INCREMENTING INTO EXTENDED ADDRESS BIT 16 


MADARA AAAAAALAAALSALLAASALALALARASEAAAAA ARS AR ARRAS ARRAS RASS DES DI 


tSTEST 104 VERIFY INCREMENTING INTO EXTENDED ADDRESS BIT 16 
MARBABAAAAAALLLSLALSZESASRASLSESE SALES ESSERE SRS RRR RARER RRR RAR ARR RAS SY 

+8104: SCOPE 

MOV #60,$TIMES ::D0 40 ITERATIONS 

MOV ACLRALL,@SFR sCLEAR THE DEVICE 

CMP $LSTBK #2140 ‘TEST IF ENOUGH MEMORY 

BLO $1105 - ::BR IF NOT ENOUGH MEMORY 

MOV HA ;LOAD 1 WORD XPR 

MOV n7}776, @BAR LOAD LAST ADDRESS 

CLR @OF F + ENSURE CLEARED EXTENDED ADDRESS BITS 

MOV #TSTCON! TSTDMA, aSFR TENABLE CON 

MOV #16,aCSR TENABLE THE TROBE 

BIS #B1T0,acSR s ENABLE THE NCV11 

BIS ATESTZ.aSFR ‘ENABLE "TEST Z°* PULSES 

BIC ATESTZ,aSFR :DISABLE ‘TEST Z°* PULSES 

BIS #B1T12,aSFR [ALLOW 1 DMA TRANSFER 

NOP 

NOP 

NOP 

MOV #1,$GDDAT ;LOAD EXPECTED VALUE 

MOV @OF F , SBDDAT ‘READ ACUTAL VALUE 

CMP SGDDAT , S$BDDAT * COMPARE 

BEQ TST105 7;BR IF SAME 

ERROR 6 sEXTENDED ADDRESS BIT 16 FAILED TO SET 
DL AREER EERE REE EKEREREEREREREEEEEREEEKEREREEREERER EH 
S*TEST 105 VERIFY INCREMENTING INTO EXTENDED ADDRESS BIT 17 
FLARE REAR A REE RERE RE REEEEREREREEEREEREEERERE EERE EEE 
TST105: SCOPE 

MOV #40, $TIMES ::D0 40 ITERATIONS 

MOV ACLRALL, a@SFR :CLEAR THE DEVICE 

CMP $LSTBK 46140 TEST MEMORY SPACE >100k 

BLO TS1106 ::BR IF Not ENOUGH MEMORY 

MOV #-1,aW LOAD 1 WORD XFR 

MOV Teme @BAR [LOAD LAST ADDRESS 

MOV #1, a0FF “LOAD EXTENDED ADDRESS BIT 

MOV #TSTDMA! TSTCON, aSFR TENABLE TEST CONTROL 

MOV #16,aCSR S ENABLE THE 

BIS #81T0,aCSR ENAVLE THE DEVICE 

BIS ATESTZ,aSFR ENABLE ‘TEST 2°' PULSES 

BIC ATESTZ,aSFR [DISABLE ‘‘TEST 2°' PULSES 

NOP 

NOP 

NOP 

BIS #B1T12,aSFR :ALLOW 1 DMA TRANSFER 

NOP 

NOP 

NOP 

MOV #2, $GDDAT ZLOAD EXPECTED 

MOV @OFF , SBDDAT TREAD ACTUAL 

CMP SGDDAT , $BDDAT + COMPARE 

BEQ TST106 ::BR IF SAME 


ERROR 6 EXTENDED ADDRESS BIT 17 FAILED TO SET 


SEQ 0061 
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7106 VERIFY “‘SET EVENT’ DATA GENERATES A 177777 DATA WORD 


SRA RRREER ERR EEEARREEEREERERERREEERERERERARERERRRERERREREERERER EH 


VERIFY ‘SET EVENT'’ DATA GENERATES A 177777 DATA WORD 


MPR AARARASASLAAAAALASALLASASLALASESES ESAS AS ESSERE R SEAR A SALA RAR SAS ES Sf 


S*TEST 106 
T$1T106: SCOPE 


#40, $TIMES 3:D0 40 ITERATIONS 

ACLRALL ,@SFR ;CLEAR THE DEVICE 

#-1 ,aWCR 7SET UP 1 WORD TRANSFER 

#BUF 0, @BAR LOAD BUS ADDRESS FOR RESULT 
MTSTDMA! TSTCON, @SFR TENABLE TEST CONTROL AND DMA FLOPS 
#7070 ,BUFO :PRESET DATA 

#B1T0,aCSR SENABLE DEVICE 

#B1T10,aSFR 3SET ‘EVENT’ FLOP 
#B1T12,aSFR ;ALLOW 1 DMA TRANSFER 

BUF 0, $BDDAT READ DATA 

#~-1 ,SGDDAT ;LOAD EXPECTED 

$GDDAT , SBDDAT ; COMPARE VALUES 

ist 07 ie IF SAME 


; INCORRECT DATA VALUE FOR ‘EVENT’’ MARK 
RANSF ER 


sAFTER A 1 WORD T 


J PRR EKER EERE EKER ERERREEREEERREERE EERE EREE EE 


VERIFY *'SET TIME'’ DATA GENERATES A 000000 DATA WORD 


FLERE REE EERE EERE ERE EE 


i*TEST 107 


TST107: SCOPE 
MOV 
MOV 
MOV 


#40, $TIMES ::D0 40 ITERATIONS 

#CLRALL,a@SFR : CLEAR THE DEVICE 

#~-1,awCR :SET UP 1 WORD TRANSFER 

#BUF 0, aBAR *LOAD BUS ADDRESS FOR RESULT 
ATSTDMA! TSTCON, aSFR ‘ENABLE TEST CONTROL AND DMA FLOPS 
#7070,BUFO “PRESET THE DATA 

#BITO.acSR TENABLE DEVICE 

#BIT9,aSFR :SET "'TIME'' FLOP 

#BIT12,aSFR ‘ALLOW 1 DMA TRANSFER 

BUF 0, $BDDAT :READ DATA 

#0, $GDDAT ‘LOAD EXPECTED 

$GDDAT, $BDDAT = COMPARE VALUES 

TST110 77BR IF SAME 

27 : INCORRECT DATA VALUE FOR ‘‘TIME'’ MARK 


;AFTER A'1 WORD TRANSFER 


SEQ 0062 


CZNCCB 


NCV11 


CZNCCB.P11 


(2) 


“~~ 
—_ 
— 


ed od ced ae cd cd wd etd ed ed 
SOMNAUNEWN=O N 


ee es ee ed ek ed ed aed od od od 
RMR 
QUSWR— 


WW 
MM 


a3 


TT 
KEFKESEARGRRA 


¥¥ 
oN 


016744 


016746 


DIAGNOST 
31-AUG-79 


IC 
11:21 


000040 
004000 
004020 
177777 
060000 
000014 
007070 
000001 


000400 
010000 


060000 
177777 
001124 


000040 
004000 
004020 
177777 
060000 
000014 
007070 
000001 
162704 
177776 
000011 
162664 
010000 


MACY11 


163032 
163042 


001160 
162772 


162752 


30G 


T110 


(1063) 


31-AUG~79 10 PAGE 40 
VERIFY ‘CLOCK ST1"' GENERATES A EVENT (177777) DATA WORD 


13: 


SEQ 0063 


FLARE ERE EERE REREKERREREREREREREERERERERERERRERREREKERRR RE 


VERIFY ‘CLOCK ST1°" GENERATES A EVENT (177777) DATA WORD 


MOR SRSSASALZAASLASAALASALALAASL SRSA SAREE LARA AAAS AREAS RAR AR ARES AS 


6 
-* 
. 


1§ 


TEST 110 
T7110: SCOPE 


#40, STIMES 
ACLRALL ,@SFR 
DEADKW 


TST111 
#-1 ,awCR 


#BUF 0, @BAR 
MTSTDMA! TSTCON, @SFR 


#7070, ,BUFO 
#B1T0,aCSR 


#B1T8,aKWCSR 
#B1T12,aSFR 


ay ey 


3:D0 40 ITERATIONS 


:CLEAR THE DEVICE 
TEST IF NCV11 CLOCK IS PRESENT 


7 7BR IF NOT 


:SET UP 1 WORD TRANSFER 
;LOAD BUS ADDRESS FOR RESUL 
ENABL E TEST CONTROL AND DMA FLOPS 
:PRESET THE DATA 
SENABLE THE DEVICE 


4 o0y hy CLOCK ST1 TO SET ‘EVENT’ FLOP 
TRANSFER 


;ALLOW 1 DMA 


READ BUFFER DATA 
;LOAD EXPECTED DATA 
; COMPARE 


EXPECTED 


sCLOCK ST1 FAILED TO GENERATE EVENT FLAG 
:CHECK THE M8026 TO M7952 JUMPERS 


[EERO IOO IOUS OD OIE oor nr Sint titties 


e? 
° 


TEST 111 


VERIFY *"CLOCK OVERFLOW'’ GENERATES A 


TIME (000000) DATA WORD 


5 ARR EREEREAREEEEREEKEREEEEERREEKEEREREEREERHEEREEREERERERERKEERAEREERE EE 


TS 


1$: 


T111: SCOPE 


#40,$TIMES 
#CLRALL ,@SFR 
ADKW 


TST112 
#-1 ,awCR 


#BUF 0, @BAR 

#TSTDMA! TSTCON, ASFR 
#7070 .BUFO 
#B1T0,aCSR 

akWCSR 

#-2 ,AKWPSR 

#11, aKWCSR 

akWCSR 


1$ 
#B1T12,aSFR 
BUF 0, SBDDAT 
#0, SGDDAT 
$GDDAT , SBDDAT 
TST112 

40 


::D0 40 ITERATIONS 


;CLEAR THE DEVICE 
TEST IF NCV11 CLOCK IS PRESENT 


77BR IF NOT 


2 SET UP 1 WORD TRNSFER 
;LOAD BUS ADDRESS FOR RESULT 
ZENABLE TEST CONTROL AND DMA FLOPS 


ESET 
ENABLE 1 MHZ. RATE AND CLOCK GO 
sWAIT FOR CLOCK 


ALLOW 1 DMA TRANSFER 
READ DATA 


;LOAD EXPECTED 
; COMPARE VALUES 


BR IF SAME 


;CLOCK OVERFLOW FAILED TO GENERATE “TIME MARKS"* 
CHECK THE M8026 TO M7952 JUMPERS 





CZNCCB NCV11 __ DIAGNOSTIC MACY11 30G(1063) 31-AUG-79 13:10 "PAGE 4 a 
CZNCCB.P11 = -31=AUG-79 17:21 Tho VERIFY "SET TIME” OVERRIDES “'SET EVENT'" DATA 

1350 FERRARA AERA EKEEREREEEEREREEREREREEEEREEEEREREERRER KH 

(3) Z*TEST 112 VERIFY ‘'SET TIME'’ OVERRIDES ‘'SET EVENT’’ DATA 

(3) ff RRAAAARRRAAEAREERRRRREAKREARARERKKARRERREERERERERERERARRRREERKREREE 

(2) 017116 000004 7§1112: SCOPE 

(1) 017120 012737 000040 001160 MOV #40, STIMES ;:D0 40 ITERATIONS 

1351 017126 012777 004000 162622 MOV = ACLRALL , @SFR CLEAR THE DEVICE 

1352 017134 012777 177777 162610 MOV #=1,awCcR SET UP 1 WORD TRANSFER 

1353 017142 012777 060000 162604 MOV §- ABUF 0, @BAR LOAD BUS ADDRESS FOR RESUL 

1354 017150 012777 000014 162600 MOV ATSTDMATTSTCON,aSFR —-ZENABLE TEST CONTROL AND DMA FLOPS 
1355 017156 012737 007070 060000 Mov - #7070, BUFO PRESET THE DATA 

1356 017164 052777 000001 162554 BIS  #BITO.aCSR ZENABLE DEVICE 

1357 017172 000240 NOP 

1358 017174 000240 NOP 

1359 017176 000240 NOP x 

1360 017200 052777 003000 162550 BIS - #BIT10!BIT9,aSFR ;SET ''TIME AND EVENT’’ FLOPS 

1361 017206 052777 010000 162542 BIS  - #BIT12.aSFR ALLOW 1 DMA TRANSFER 

1362 017214 000240 NOP 

1363 017216 000240 

1364 017220 000240 NOP 

1365 017222 013737 060000 001126 MOV BUFO, SBDDAT ;READ DATA 

1366 017230 012737 000000 001124 MOV #0, SGDDAT LOAD EXPECTED 

1367 017236 023737 001124 001126 CMP —s- $GDDAT , SBDDAT COMPARE VALUES 

1368 017244 001401 BEQ =: TS$T113 7:BR IF SAME i 
1369 017246 104027 ERROR 27 ;"'TIME’’ MARK FAILED TO OVERIDE ‘EVENT’' OR DATA M 
1370 FLERE REE ERE EKER EERE EKEEKRKEEEERREEEEEKEEKEEEEAEEEREREERE KE 

(3) Z*TEST 113 DO A ONE WORD MATRIX MODE TRANSFER CHECK FOR INCREMENT FUNCTION 

(3) FLARE RARER ERE EERE EERE 

(2) 017250 000004 7$1113: SCOPE 

(1) 017252 012737 000040 001160 MOV #40, $TIMES 3:D0 40 ITERATIONS 

1371 017260 012777 004000 162470 MOV = ACLRALL. , @SFR CLEAR THE DEVICE 

1372 017266 005037 060000 CLR BUFO CLEAR INITIAL INREMENT LOCATION 
1373 017272 012777 060000 162450 MOV - ABUF 0, @OF F LOAD INITIAL OFFSET REGISTER 
1374 017300 012777 000022 162440 MOV = #BIT4'BIT1,aCSR ZENABLE MATRIX 

1375 017306 012777 000014 162442 MOV #TSTDMA: TSFCON, @SFR SET _TEST DMA_AND CONTROL 

1376 017314 052777 000001 162424 BIS §_ #BITO,aCs ZENABLE THE DEVICE 

1377 017322 052777 000002 162426 Bis ATESTS-BSFR ENABLE “TEST 2’ PULSES 

(1) 017330 042777 000002 162420 BIC —- #TESTZ.aSFR DISABLE ‘TEST Z'* PULSES 

1378 017336 000240 NOP 

1379 017340 000240 NOP 

1380 017342 000240 NOP 

1381 017344 052777 010000 162404 BIS - #BIT12, aSFR ALLOW 1 TRANSFER 

1382 017352 000240 NOP 

1383 017354 000240 NOP 

1384 017356 000240 NOP 

1385 013737 060000 001126 mov BUF. SBDDAT ;READ THE BUFO LOCATION 

1386 017366 012737 000001 001124 MOV #1, SGDDA ZLOAD EXPECTED VALUE 

1387 017374 023737 001124 001126 CNP SGBDAT.SBDDAT COMPARE VALUES 

1388 017402 001401 BEQ = TST114 7:BR IF SAME 

1389 017404 104030 ERROR 30 ; INCORRECT DATA IN MATRIX MODE 
1390 ;1F DATA WAS 0, THE ADDRESS ACCESSED WAS PROBLY WRONG 
1391 :IF DATA WAS NON ZERO, THE “‘INCR’’ REGISTER IS STUCK TO A 1 


CZNCCB 


NCV11 


CZNCCB.P11 


017406 
017410 


017416 
017424 


017432 
017440 


0 
017612 


DIAGNOSTIC 


31-AUG- 


000004 
012737 


012737 
012737 


012777 


79 11:21 


000040 


017432 
000002 


060000 
001124 
162170 
020000 
000024 


020000 
002004 


MACY11 


001160 


001110 
002004 


162316 


001124 
162150 


30G 
T1 


-* 
’ 


T§ 


Be Se Be Be Be Be Fe Se 


1$: 


2$: 


3$: 


N 
(1063) 31-AUG=79 13:10 PAGE 42 
14 VERIFY EACH BIT OF THE INCREMENT REG. DATA PATH 


J AERA RARER EREEREREEREREREREREREREEREREEREREEERERER EEE 


VERIFY EACH BIT OF THE INCREMENT REG. DATA PATH 


Ff REAR AREAE AEE REAKRRREAERAEREKRRRERRERERREERERREREREREREERRER RE 


3;D0 40 ITERATIONS 


TEST 114 
T114: SCOPE 


MOV #40, STIMES 
;CHECK FOR A “CARRY” INTO EACH Bit 
IE: 000002-000001 


000010-000007 
000020-000017 
000040-000037 
000100-000077 
ieee 77 
#1$,$LPERR 

#2, STEMP 
#CLRALL ,@SFR 
#BUF 0 , @OF F 
#B1T4!BIT2,aCSR 
MTSTDMA! Ee acteae 


#B81T0,aCS 
A th 


BUF 
ATESTZ.@SFR 
ATESTZ,@SFR 
#B1T12,aSFR 
STEMP ,SGDDAT 
BUF 0, $BDDAT 
el apa 


** 
oe 


30 
@CSR,$BDDAT 
#81713, $BDDAT 


3 
> T4!BIT2,$GDDAT 
#B1T13,aSFR 
TEMP 
1$ 


;LOAD RETURN ADDRESS IF ERROR 
;LOAD INITIAL VALUE 


:CLEAR THE DEVICE 
; LOAD INITIAL OFFSET REGISTER 
E MATRIX MODE 


WOR 
:SET TEST DMA AND CONTROL 
TENABLE THE DEVICE 
LOAD PRESET VALUE 
:TO EXPECTED = 
ENABL 


;LOAD TYPEOUT EXPECTED 
READ THE BUFO LOCATION 
; COMPARE VALUES 


IF SAME 


AD STATU = IN THE INCREMENT REGISTER 
oi FOR UNEXPECTED CELL OVERFLOW 


:BR IF NOT 

;LOAD THE EXPECTED TYPEOUT 
SUNEXPECTED "CELL OVERFLOw'' STATUS 
:TRY TO CLEAR THE FLAG 

CHANGE THE EXPCTED 

BR IF MORE DATA BITS 


SEQ 0065 


B 6 
CZNCCB NCV11 _ DIAGNOSTIC MACY11 30G(1063) 31-AUG-79 13:10 PAGE 4 


43 
CZNCCB.P11 = 31=AUG=79 11:21 1115. CHECK FOR LOW BYTE "INC OVFL'' TO SET CELL OVERFLOW AND ‘CLR CELL'’ TO CLEA SEQ 0066 
1429 MPeRRBREBAABRBAAAAAAASZASLALAZASRAESESR ESE EERE REE R ERE RRR RRR RRR SERRA RRR ERAS GS 
(3) TRTEST 115 CHECK FOR LOW BYTE ‘INC OVFL'’ TO SET CELL OVERFLOW AND ‘CLR CELL‘' TO CLE 
(3) REAR AAEAEAAREKREAAAARARAAAAAERAAARAKRAEAEARARKARARAEEAEEEERAEEHEE 
(2) 017614 000004 787115: SCOPE 
(1) 017616 012737 000040 001160 MOV #40,$TIMES ::DO0 40 ITERATIONS 
017624 012777 004000 162124 MOV #CLRALL,@SFR :CLEAR THE DEVICE 
1431 017632 005077 162114 CLR awCR *CLEAR WC 
1432 017636 77 162112 CLR @BAR :CLEAR BAR 
1433 017642 012777 162100 MOV #BUF 0, @OF F ‘LOAD INITIAL OFFSET REGISTER 
1434 017650 012777 000022 162070 MOV #BITS4‘BIT T1,aCSR * ENABLE BYTE MATRIX MODE 
1435 656 012777 000014 162072 MOV #TSTDMA! TSTCON, aSFR ;SET TEST DMA AND CONTROL 
1436 017664 052777 000001 162054 BIS #B1T0,aCSR ENABLE THE DEVICE 
1437 017672 052777 000002 162056 BIS ATESTZ,aSFR ENABLE "TEST Z'* PULSES 
(1) 017700 042777 000002 162050 BIC #TESTZ.aSFR “DISABLE ‘TEST Z'' PULSES 
017706 000240 NOP 
1439 017710 000240 NOP 
1440 017712 NOP 
1441 017714 112737 000377 060000 MOVB = #377,BUFO :SET LOW BYTE OF BUFO LOC. TO BYTE -1 
1442 017722 112737 060001 MOVB #200 ,BUF 0+1 zSET HIGH BYTE OF BUFO TO KNOWN VALUE 
1443 730 052777 010000 162020 BIS #BIT12,aSFR ;ALLOW 1 TRANSFER 
1444 017736 000240 NOP 
1445 017740 000240 NOP 
1446 017742 NOP 
1447 017744 017737 161776 001126 MOV acsR,$8 ;READ STATUS 
1448 017752 012737 020022 001124 MOV weiTiSiBIT6:8171, SGDDAT ;LOAD EXPECTED STATUS 
1449 017760 023737 001124 001126 CMP $GDDAT , $BDDAT * COMPARE VALUE S 
1450 017766 001401 BEQ 1$ ;;BR IF SAME 
1451 017770 104031 ERROR 31 :"'CELL OVERFLOW’ FLOP FAILED TO SET 
1452 ZIN BYTE. MODE FROM A LOW BYTE OVERFLOW 
132 
1455 ;NOW GENERATE '‘CLR CELL'’ TO CLEAR CELL OVERFLOW FLOP : 
1456 017772 052777 020000 161756 i$: BIS #B1T13,aSFR : GENERATE nog CELL"’ 
1457 020000 017737 161742 001126 MOV @CSR,$BDDAT [READ STATUS 
1458 012737 22 001124 MOV #81T4'BIT1, + sataes sLOAD EXPECTED 
1459 020014 023737 001124 001126 CMP $GDDAT, SBDDAT + COMPARE VALUE S 
1460 020022 001401 BEQ 2$ ::BR IF SAME 
Hrs 2 020024 104031 ERROR 31 :"'CLR CELL*’ FAILED TO CLEAR ‘CELL OVFL** FLOP 
1463 ;NOW VERIFY THE BYTE DATA CELL 
1464 020026 013737 060000 001126 2$: MOV FO, $BDDAT :READ DATA 
1465 020034 012737 100377 001124 MOV #100877, $GDDAT “LOAD EXPECTED 
1466 020042 023737 001124 001126 CMP SGDDAT , SBDDAT > COMPARE 
1467 020050 001401 BEQ TST116 77BR IF SAME 
1468 020052 104031 ERROR 31 OVERFLOW FROM INC. REG. FAILED TO INHIBIT 
1469 :""INC CNT’ FROM CHANGING THE DATA OR 


1470 :""CSR BYTE CELLS’* FAILED TO INHIBIT “‘INC ENA HI"' 





6 
CZNCCB NCV11 _ DIAGNOSTIC MACY11 30G(1063) 31-AUG-79 13:10 “pace 4 
CZNCCB.P11 31-AUG=79 11:21 7116 CHECK FOR WORD ‘INC OVFL"’ fo SET CELL OVERFLOW AND ‘'CLR ALL'' TO CLEAR IT SEQ 0067 


SL RARER ARR ERERREERERE AREER EKEEERREARREEEEEERERKERREEERREREREE 


:*TEST 116 CHECK FOR WORD ''INC OVFL'' TO SET CELL OVERFLOW AND ''CLR ALL"’ TO CLEAR IT 


—WeROAAAAALASSAAAALALALALARAAASL AAAS ARRAR ASE RAR RRA RRA R SRSA SAREE SS 


T$T116: SCOPE 
MOV #40,$TIMES 7:D0 40 ITERATIONS 
ACLRALL,@SFR sCLEAR THE DEVICE 


#BUF 0 , @OF F LOAD INITIAL OFFSET REGISTER 
#B1T4'!BIT2,aCSR ;ENABLE MATRIX MODE 


MTSTDMA! TSTCON, @SFR :SET TEST DMA AND CONTROL 
#B1T0,aCSR 
AMTESTZ,@SFR 
ATESTZ,@SFR 


#-1 ,BUFO SET BUFO LOC. TO WORD -1 
#B1T12,aSFR ;ALLOW 1 TRANSFER 


acsSR, $8 READ STATUS 
weiT{SiBIT6:B112, $GDDAT ;LOAD gts STATUS 
pate - SBDDAT iCOMPARE VA LUES 


AME 
ERROR 31 s"CELL +6 ial FLOP FAILED TO SET 
GENERATE ‘'CLR ALL*’ TO san CELL OVERFLOW F 
BIS iG NERATE euR ALL"' 
TREAD STA 
LOAD OMPECTED 
$GDDAT, SBDDAT + COMPARE VALUES 
2$ :;BR IF SAME 
:"‘CLR ALL’ FAILED TO CLEAR ‘CELL OVFL** FLOP 


READ DATA 


31 

WORD CELL DATA 
BUF 0, SBDDAT 
#-1,$GDDAT LOAD EXPECTED 
ScDDAT. SBDDAT ; COMPARE 


TST11 37BR IF SAME 
31 








D 6 
CZNCCB mail DIAGNOSTIC MACY11 3? aed 31-AUG-79 13:10 PAGE 45 


CZNCCB.P11 31-AUG=79 11:21 HECK FOR ‘CELL OVERFLOW’ INTERRUPT SEQ 0068 
1508 DR RII IOI II IIIS III IOIIDIOIUIIIIIOIIIDIIIUIDIIUISIUIDIIIDIOIUIOIIIDIOIIIOIIOI IIR 
(3) :*TEST 117 CHECK FOR "'CELL OVERFLOW'’ INTERRUPT 
(3) FC AARRAARARRRARERKREREAAREEREREKRERAERERRARRARRRAKAERARAERRAERRERERH 
(2) 020306 000004 1$T117: SCOPE 
(1) 020310 012737 000040 001160 MOV #40,$TIMES ::D0 40 ITERATIONS 
1509 020316 012777 161432 MOV ACLRALL,@SFR :CLEAR THE DEVICE 
1510 020324 005077 161424 CLR @BAR 
1511 330 005077 161416 CLR 
1512 020334 012777 060000 161406 MOV #BUF 0, @OF F :LOAD INITIAL OFFSET REGISTER 
1513 020342 012777 000064 161376 MOV WBITS'BIT4'!BIT2,aCSR | :ENABLE INTR. AND MATRIX MODE 
1514 020350 012777 000014 1614 MOV #TSTDMA! TSTCON, aSFR ‘SET TEST DMA AND CONTROL 
1515 020356 052777 000001 161362 BIS #B1T0,aCSR ENABLE THE DEVICE 
1516 020364 052777 000002 161364 BIS ATESTZ,aSFR ENABLE ‘TEST Z'' PULSES 
(1) 020372 042777 000002 161356 BIC #TESTZ.aSFR “DISABLE ‘TEST Z'’ PULSES 
1517 020400 000240 NOP 
1518 020402 000240 NOP 
1519 020404 000240 NOP 
1520 020406 012737 177777 060000 MOV #-1,BUFO :SET BUFO LOC. TO WORD -1 
1521 020414 012746 000000 MOV #0,-(SP) 
1522 20 012746 020426 MOV #1$,-(SP) 
1523 020424 000002 RTI 
1524 020426 012777 020454 161342 1$: MOV #2$,aVECTBO ;LOAD RETURN VECTOR 
1525 020634 052777 010000 161314 BIS #B1T12,aSFR ‘ALLOW 1 TRANSFER 
1526 020442 00024 NOP 
1527 020444 000240 NOP 
1528 020446 000240 NOP 
1529 020450 104032 ERROR 32 "CELL OVERFLOW’ FAILED TO CAUES AN INTERRUPT 
1530 020452 000414 BR 3$ ::BR TO CLEAN UP 
1531 020454 022626 28: CMP (SP) +, (SP)+ 
1532 020456 017737 161264 001126 MOV aCSR,$BDDAT :READ STATUS 
1533 012737 020264 001124 MOV #BIT13!BIT7!BITS'!BIT4'!BIT2, $GDDAT ZLOAD EXPECTED 
1534 020672 023737 001124 001126 CMP S$GDDAT , $BDDAT ;COMPARE VALUE 
1535 020500 00140 BEQ 3$ 7:BR IF “ACTIVE'* CLEARED 
1536 020502 104031 ERROR 31 :"ACTIVE'' FAILED TO CLEAR 
1537 020504 012777 004000 161244 38: MOV MCLRALL,@SFR SCLEAR THE DEVICE 
1538 020512 013777 002000 161256 MOV VECTB1,aVECTRO “RESET THE VECTORS 
1539 020520 005077 161254 CLR ave CTBI 


E 
CZNCCB NCV11 _ DIAGNOSTIC MACY11 30G(1063) 31-AUG-79 13:10 PAGE 46 
CZNCCB.P11 31-AUG-79 11:21 7120 VERIFY CORRECT BR LEVEL THE NCV-11 


SER RERRAR ERR EERE REE EEER EERE ERE EERE RRR E REE 
TRTEST 120 VERIFY CORRECT BR LEVEL THE NCV-11 
KERR ERERERERRERRRRE EERE ERE EER REE EERE RRR ERR 
+81120: SCOPE 
MOV #40, $TIMES 32D0 40 ITERATIONS 
BRLEV,-(SP) cer THE EXPECTED BR LEVEL ON STACK 
wis, ~(SP) T THE RETURN ADDRESS ON STACK 
FAKE AN’ INTERRUPT TO BE LSI-11 AND PDP=-11 COMPATABLE 
#CLRALL,@SFR ;CLEAR THE DEVICE 
#10$, ave CTBO [LOAD UNEXPECTED INTERRUPT RETURN 


#340, avECTB! 

@BAR INIT THE LOW Z ce 

awCR ; INIT THE HIGH Z COUN 

#BUF 0 , @OF F :PRIME THE OFFSET REGISTER 
#64 ,aCSR ;SELECT INTR. AND MATRIX MODE 
MTSTDMA! TSTCON, asrR MAINT. MODE 

#~1 0 PRIME THE TARGET LOCATION 


#B1T0,aCsR TENABLE THE NCV=11 


ATESTZ,@SFR sENABLE ''TEST 2°" PULSES 
MTESTZ,@SFR [DISABLE ‘TEST 2°" PULSES 


#B1T12,aSFR ;ENABLE 1 TRANSFER 


RIS 


( 
5 
5 
5 
5 
5 
5 
5 
5 


SES 


cS 


BRLEV,RO GET CURRENT BR I.EVEL 
000040 UB #40,RO SAND MAKE IT 1 LEVEL LOWER 
003356 ast TEST IF LSI-11 CPU 


BR IF of 
RO ;LOAD BR LEVEL 0 
020756 : #20$,aVECTBO RELOAD 16 EXPECTED VECTOR 
RO,~(SP) [PUSH ADJUSTED BR LEVEL 
020740 #3$,-(SP) [PUSH RETURN ADDRESS 
;LOWER CPU BR LEVEL 


SA 


NANYNNNNWN 
JAFARAN2ZSS 


42 3NCV11 FAILED TO INTERRUPT - INCORRECT NCV11 BR LEVEL? 
21$ ;;BR TO CLEAN-UP 


cere INTERRUPT Rit) BR LEVEL INDICATED 
022626 10$: (SP)+,(SP)+ : CLEAN THE STACK 
104042 ERROR oY 4 3NCV11_ INTERRUPTED ON AN INCORRECT BR LEVEL 
020754 BR 21$ :;BR TO CLEANUP 


EXPECTED ew. dID OCCUR 
020756 022626 sve: CMP (SP) +, (SP)+ CLEAN THE STACK 
020760 012777 21 MOV #CLRALL, aSFR CLEAN THE DEVICE 
020766 MOV VECTB1,@VECTBO ;RESET THE VECTOR 
020774 CLR aVvECTBI 


BO 





CZNCCB NCV11 
CZ2NCCB.P11 


6 
13:10 " page 47 
1 WORD MATRIX MODE XFR USING OFFSET = 13 


—MARAARERARAAAAAAAALALASARRASERAR ESAS ERE RRR RARE RSA RAR RASA RR SSS SS | 


TATEST 121 VERIFY A 1 WORD MATRIX MODE XFR USING OFFSET = 13 


—MmARARARAARAARARARAARASZALALALASASLARELALAS AAR ESA RAAL ASA RAR SA RAS ES SS | 


1$1121: SCOPE 
MO #100, $TIMES 3;D0 100 ITERATIONS 
#CLRALL , @SFR ;CLEAR THE DEVICE 
#60000 , aOF F [LOAD THE OFFSET REG. 
#TSTDMA! TSTCON, aSFR SET TEST DMA AND CONTROL 
wel tO aren’ -aCSR ; SELECT des WORD MODE 


#8 
ATESTZ,aSFR 
#TESTZ.aSFR 
a#60000 
#BIT12,aSFR 
#60000. $8DADR 


Lhe wy 


DIAGNOST 30G 
1 VERIFY A 


S 1063) 
31-AUG-79 1 


( 
2 


*CLEAR THE TARGET LOCATION 
SALLOW 1 WORD TRANSFER 
“LOAD EXPECTED ADDRESS 
#1, $GDDAT [LOAD EXPECTED DATA 

@$ADADR, $BDDAT TREAD THE ACTUAL DATA 

SGDDAT , $8DDAT * COMPARE 

TST122 ;;BR IF SAME 

33 ZOFFSET INPUT TO MATRIX MUX. SELECTED 

:THE WRONG ADDRESS - EXPECTED ADR. WAS 60006 

DLA ERR ERE ARERR EEREEREEEREEEREEREEREREAEKREREKEERERREEREREER EH 
SSTEST 122 VERIFY A 1 WORD MATRIX MODE XFR USING OFFSET - 12 


WeRASAERARSALAASZAALALSZASLALARASSESS RR RARESAR ERS REARS SRR RAR RAR AR ARSED SS 
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Nt et SM) SS NW BS BS OP Ms OS NN OO OS OS 
eee Nee ee ee ee ee es es Se es YY (AN Sw SS we Sw wee we we 


151122: SCOPE 

MOV #100, S$TIMES 
#CLRALL .@SFR 
#70000, aOF F 
#TSTDMA! TSTCON, aSFR 
#BIT4'BIT2,aCSR 
#B1TO,aCSR 
rrESTE aor 

70000 


ar? 
#81712, aSFR 
#70000 , SBDADR 
#1, SGDDAT 
@$BDADR , $BDDAT 
$GDDAT , SBDDAT 
TST123 

021256 33 


3:D0 100 ITERATIONS 


;CLEAR THE DEVICE 

[LOAD THE OFFSET REG. 

:SET TEST DMA AND CONTROL 
;SELECT MATRIX WORD MODE 
SENABLE NCV11 

sENABLE ‘‘TEST 2°* PULSES 
DISABLE ‘TEST 2°’ PULSE 
;CLEAR THE TARGET LOCATION 
ALLOW 1 WORD TRANSFER 
;LOAD EXPECTED ADDRESS 
;LOAD EXPECTED DATA 

;READ THE ACTUAL DATA 
; COMPARE 


FFSET INPUT TO MATRIX MUX. SELECTED 
70000 


7 THE WRONG ADDRESS - EXPECTED ADR. WAS 





Tl 
31-AUG-79 11:21 


ee ie te te a i 
— SW Ss Ss SS FQ OO OS OS Ss 
ee Nee ee eee eee eee 


a i tn tt i i 
— We a fp SS oS SS 
ee Nee ee ee ee ee ee ee ee 


MACY11 306(1063) 
1123 


0414 


001126 


ACLRALL ,@SFR 


. @OF F 1 2 
ATSTDMA! TSTCON,@SFR :SET TEST DMA AND CONTROL 
att yd Gaeta 


@$8DADR, 
$GDDAT , $BDDAT 
TST124 
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VERIFY A 1 WORD “MATRIX MODE XFR USING OFFSET = 11 SEQ 0071 


SL RARARAAAAAAAARARARRARARERRERARAARRERAERRAAAERARRRRRRRERRARERH ARE 


VERIFY A 1 WORD MATRIX MODE XFR USING OFFSET = 11 


WeeRARARERERARRRARARASRSSAAARARARASRELAR RRR RARE SARA RRR SRSA ARRAS SS 


1$1123: SCOPE 
MOV 


;:D0 100 ITERATIONS 
CLEAR THE DEVICE 


+ SELECT MATRIX WORD MODE 
NABLE NCV 


11 

7; ENABLE “TEST rot hee 
[DISABLE ‘TEST 2'' PULSES 
;CLEAR THE TARGET LOCATION 
TALLOW 1 WORD TRANSFER 
;LOAD EXPECTED ADDRESS 
LOAD EXPECTED DATA 
;READ THE ACTUAL DATA 
; COMPARE 
7 ;BR IF SAME 

;OFFSET INPUT TO MATRIX MUX. SELECTED 
; THE WRONG ADDRESS - EXPECTED ADR. WAS 64000 


SL RARER EAE EERE ER EERE REAR EERE RRE RE 


VERIFY A 1 WORD MATRIX MODE XFR USING OFFSET = 10 


FF RARER AEE ERE AEEEERAEREEEE RARER EEERAEEREREREAERERAERRERRERERE RE 


TST124: SCOPE 
MO 


3:D0 100 ITERATIONS 
:CLEAR THE DEVICE 


2000 , @OF F st ° 
ATSTDMA! TSTCON, @SFR :SET TEST DMA AND CONTROL 
be El 


>SELECT MATRIX WORD MODE 
;ENABLE NCV11 
sENABLE ‘TEST 2°* PULSES 
;DISABLE ‘TEST Z°* PULSES 
;CLEAR THE TARGET LOCATION 
;ALLOW 1 WORD TRANSFER 
;LOAD EXPECTED ADDRESS 
;LOAD EXPECTED DATA 
;READ THE ACTUAL DATA 
; COMPARE 
7:BR IF SAME 

;OFFSET INPUT TO MATRIX MUX. SELECTED 
THE WRONG ADDRESS - EAPECTED ADR. WAS 62000 
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C2NCCB.P11 = 31=AUG=79 11:21 1125. VERIFY A 1 WORD MATRIX MODE XFR USING OFFSET = 09 SEQ 0072 
1618 LF RAAARARAAAAAAARRAARERRARAERERARARRRARRERRRARAARARAAARRARARRAARERREE 
(4) TEST 125 VERIFY A 1 WORD MATRIX MODE XFR USING OFFSET = 09 
(4) bs FRRAAAERAAAERAARAEARRARRAAAERARRARRERERRERRARREARRARRRARAEARERAERARE 
(3) 021540 000004 11125: SCOPE 
(2) 021542 012737 000100 001160 MOV #100,S$TIMES ;:D0 100 ITERATIONS 
(1) 021550 012777 004000 160200 MOV #CLRALL, asFR :CLEAR THE DEVICE 
(1) 021556 012777 061000 160164 MOV #61000, a0 [LOAD THE OFFSET REG. 
(1) 021564 072777 000014 160164 MOV PTSTDMA'TSTCON, SFR SET TEST DMA AND CONTROL 
(1) 021572 012777 000024 160146 MOV #B1T4!BIT2,aCSR SELECT MATRIX WORD MODE 
a) 052777 000001 160140 BIS #B1T0,aCSR TENABLE NCV11 
(2) 021 052777 000002 160142 BIS #TESTZ,aSFR SENABLE "TEST Z°* PULSES 
(2) 021614 042777 000002 160134 BIC #TESTZ,a@SFR :DISABLE ‘TEST 2°’ PULSES 
(1) 021622 005037 061000 CLR a7e10 ZCLEAR THE TARGET LOCATION 
(1) 021626 052777 010000 160122 BIS #B1T12,aSFR TALLOW 1 WORD TRANSFER 
(1) 021634 012737 061000 001122 MOV #61000, $BDADR TLOAD EXPECTED ADDRESS 
(1) 021642 012737 001124 MOV #1 ,SGDDAT [LOAD EXPECTED DATA 
(1) 021650 017737 157246 001126 MOV @SADADR , SBDDAT [READ THE ACTUAL DATA 
(1) 021656 023737 001124 001126 CMP $GDDAT , $BDDAT > COMPARE 
(3) 021664 001401 BEQ TS1126 ;;BR IF SAME 
(1) 021666 104033 ERROR 33 OFFSET INPUT TO MATRIX MUX. SELECTED 
1) ;THE WRONG ADDRESS - EXPECTED ADR. WAS 61000 
1619 Fy DEERE REE REER EERE ERE EERE EEE 
(4) TRTEST 126 VERIFY A 1 WORD MATRIX MODE XFR USING OFFSET = 08 
(4) J FARRAR AERA REE ERE RERAEREREER EEE 
(3) 021670 000004 51126: SCOPE 
(2) 021672 012737 000100 001160 MOV #100, $TIMES ;;D0 100 ITERATIONS 
(1) 021700 012777 004000 160050 MOV #CLRALL .aSFR :CLEAR THE DE 
(1) 021706 012777 060400 160034 MOV #60400, @OF F [LOAD THE OFFSET REG. 
(1) 021714 012777 000014 160034 MOV #TSTDMA! TSTCON, aSFR ZSET TEST DMA AND CONTROL 
(1) 021722 012777 000024 160016 MOV #B1T4!BIT2,aCSR :SELECT MATRIX WORD MODE 
(1) 021730 052777 000001 160010 BIS #B1T0,aCSR ZENABLE NCV11 
(2) 021736 052777 000002 160012 BIS #TESTZ.@SFR TENABLE ‘TEST Z°' PULSES 
(2) 021744 042777 160004 BIC #TESTZ.aSFR :DISABLE ‘TEST 2°’ PULSES 
(1) 021752 005037 060400 CLR #60400 [CLEAR THE TARGET LOCATION 
(1) 021756 052777 010000 157772 BIS #B1T12,aSFR TALLOW 1 WORD TRANSFER 
(1) 021764 012737 060400 001122 MOV #60400, $BDADR [LOAD EXPECTED ADDRESS 
(1) 021772 012737 1 001124 MOV #1, SGDDAT [LOAD EXPECTED DATA 
(1) 022000 017737 157116 001126 MOV @SADADR , SBDDAT [READ THE ACTUAL. DATA 
(1) 022006 023737 001124 001126 CMP $GDDAT , $BDDAT > COMPARE 
(3) 022014 001401 BEQ TST127 ::BR IF SAME 
(1) 022016 104035 ERROR 33 TOFFSET INPUT TO MATRIX MUX. SELECTED 


; THE WRONG ADDRESS - EXPECTED ADR. WAS 60400 
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C2NCCB.P11 —-31-AUG=79 11:21 1127. ~- VERIFY A 1 WORD MATRIX MODE XFR USING OFFSET = 07 SEQ 0073 

1621 SLUR ERA EERE RAE EEEREREREAAERERAEEHERRERR ERE 

(4) teTEST 127 VERIFY A 1 WORD MATRIX MODE XFR USING OFFSET = 07 

(4) fF RRARAAERARREEKEKRARERER AERA REEERARRERRAKRRERRERAEERAERRREREERRH 

(3) 022020 000004 1S1127: SCOPE 

(2) 022022 012737 000100 001160 MOV #100, $TIMES ::D0 100 LTERATIONS 

(1) 022030 012777 157720 MOV ACLRALL,@SFR :CLEAR THE DEVICE 

(1) 022036 012777 060200 157704 MOV #60200, a0F F “LOAD THE OFFSET REG. 

(1) 044 012777 4 157704 MOV #TSTDMA! TSTCON, aSFR ‘SET TEST DMA AND CONTROL 

(1) 022052 012777 000024 157666 MOV #BIT4!BIT2,aCSR ‘SELECT MATRIX WORD MODE 

(1) 02 052777 000001 157660 BIS #B1T0,aCcSR ENABLE NCV11 

(2) 022066 052777 000002 157662 BIS ATESTZ,aSFR ZENABLE ''TEST 2'* PULSES 

(2) 022074 042777 000002 157654 BIC #TESTZ.@SFR ‘DISABLE ‘TEST 2°’ PULSES 

(1) 022102 005037 060200 CLR a#60200 'CLEAR THE TARGET LOCATION 

(1) 022106 052777 010000 157642 BIS #B1T12,aSFR ‘ALLOW 1 WORD TRANSFER 

(1) 022114 012737 060200 001122 MOV #60200, $BDADR ‘LOAD EXPECTED ADDRESS 

(1) 022122 012737 1 001124 MOV #1, $GDDAT SLOAD EXPECTED DATA 

(1) 30 017737 156766 001126 MOV @SADADR, $BDDAT ‘READ THE ACTUAL DATA 

(1) 022136 023737 001124 001126 CMP S$GDDAT , $BDDAT * COMPARE 

(3) 022144 001401 BEQ TST130 ::BR IF SAME 

(1) 022146 104033 ERROR 33 7OFFSET INPUT TO MATRIX MUX. SELECTED 

(1) ;THE WRONG ADDRESS - EXPECTED ADR. WAS 60200 
1622 DESO IODIDE IOI IOS IUIIIUIIDIIOINI IODIDE ITE onoDn 

(4) S*TEST 130 VERIFY A 1 WORD MATRIX MODE XFR USING OFFSET - 06 

(4) FLERE EERE REE EEREREEEKEEEEEEEEREREERERREEEEEEREEEEREEEEREE 

(3) 022150 000004 1$1130: SCOPE 

(2) 022152 012737 000100 001160 MOV #100, $TIMES ::D0 100 ITERATIONS 

(1) 022160 012777 000 157570 MOV #CLRALL,@SFR :CLEAR THE DEVICE 

(1) 022166 012777 060100 157554 MOV #60100, aOF F “LOAD THE OFFSET REG. 

(1) 022174 012777 000014 157554 MOV #TSTDMA! TSTCON, aSFR ‘SET TEST DMA AND CONTROL 

(1) 022202 012777 000024 157536 MOV #B1T4!BIT2,aCSR [SELECT MATRIX WORD MODE 

(1) 022210 052777 1 157530 BIS #BI1TO,aCSR ENABLE NCV11 

(2) 022216 052777 000002 157532 BIS ATESTZ,aSFR ZENABLE "TEST 2°" PULSES 

(2) 022224 042777 2 157524 BIC #TESTZ.aSFR DISABLE ‘TEST 2°' PULSES 

(1) 022232 005037 060100 CLR a¥#60100 “CLEAR THE TARGET LOCATION 

(1) 022236 052777 0 157512 BIS #B1T12,aSFR ‘ALLOW 1 WORD TRANSFER 

(1) 022244 012737 060100 001122 MOV #60100. $8DADR [LOAD EXPECTED ADDRESS 

(1) 022252 012737 1 001124 MOV #1,$GDDAT :LOAD EXPECTED DATA 

(1) 022260 017737 156636 001126 MOV aSADADR , $BDDAT READ THE ACTUAL DATA 

(1) 022266 023737 001124 001126 CMP $GDDAT , $BDDAT COMPARE 

(3) 022274 001401 BEQ TST131 ::BR IF SAME 

(1) 022276 104033 ERROR 33 >OFFSET INPUT TO MATRIX MUX. SELECTED 

(1) : THE WRONG ADDRESS - EXPECTED ADR. WAS 60100 
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CZNCCB.P11 31-AUG-79 11:21 7131 VERIFY A 1 WORD MATRIX MODE XFR USING OFFSET = 05 SEQ 0074 


MR RRARARARAALAAAALAAALASAASASASASSASAR ERS ARAAAARLALASSAR AREAL SA ASA S| 


‘TEST 131 VERIFY A 1 WORD MATRIX MODE XFR USING OFFSET = 05 


5 RRA AERA AEE REERAREREEREERRRAEREREE ARERR RRAEEREERRERA 


1$1131: SCOPE 
MOV #100, STIMES. ::D0 100 ITERATIONS 
ACLRALL, asFR CLEAR 
#60040, aOF F 
#TSTDMA! TSTCON, aSFR 
#B1T4!BIT2,aCSR 
#81T0,aCSR 
ATESTZ,aSFR 
#TESTZ.aSFR ‘DI 
34760040 [CLEAR THE TARGET LOCATION 
#B1T12,aSFR TALLOW 1 WORD TRANSFER 
[LOAD EXPECTED ADDRESS 
;LOAD EXPECTED DAT 
a$AD. “READ THE ACTUAL DATA 
$GDDAT , $BDDAT OMPARE 


TST132 ::BR IF icon 
33 ZOFFSET INPUT TO MATRIX MUX. SELECTED 
:THE WRONG ADDRESS - EXPECTED ADR. WAS 60040 


5 LARA EERE EEE ERERAREEREEEEERERRERRERKH 


i*TEST 132 VERIFY A 1 WORD MATRIX MODE XFR USING OFFSET = 04 


5 LARA EREEEKEKEKEEERERRERRERREARERERERERREREREK 


151132: SCOPE 
MOV #100, $TIMES ::D0 100. LTERAT IONS 
R CLEAR THE DEVICE 
F “LOAD THE OFFSET REG. 
#TSTDMA! TSTCON, aSFR ‘SET TEST DMA AND CONTROL 
#B1T4'BIT2,aCSR SELECT MATRIX WORD MODE 
#B1T0,aCSR TENABLE NCV11 
ATESTZ,aSFR ZENABLE ‘‘TEST 2** PULSES 
ATESTZ.a@SFR “DISABLE ‘TEST Z°' PULSES 
a#60020 [CLEAR THE TARGET LOCATION 
TALLOW 1 WORD TRANSFER 
“LOAD EXPECTED ADDRESS 
[LOAD EXPECTED DATA 
“READ THE ACTUAL DATA 
$GDDAT, $BDDAT * COMPARE 
TST133 78h IF — 
022556 33 TOFFSET INPUT TO MATRIX MUX. SELECTED 
: THE WRONG ADDRESS - EXPECTED ADR. WAS 60020 
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CZNCCB.P11 31=AUG-79 11:21 1133. «VERIFY A 1 WORD MATRIX MODE XFR USING OFFSET = 03 SEC 0075 

1627 ERRATA ERE 

(4) S*TEST 133 VERIFY A 1 WORD MATRIX MODE XFR USING OFFSET = 03 

(4) J RARER AAARRERAEEERERERRREEERERERERARAERARARERERRRERRRERERAEE 

(3) 022560 000004 1$7133: SCOPE 

(2) 022562 012737 000100 001160 MOV #100,$TIMES ::DO 100 ITERATIONS 

(1) 022570 012777 004000 157160 MOV #CLRALL ,@SFR :CLEAR THE DEVICE 

(1) 022576 012777 060010 157144 MOV #60010, a0F F LOAD THE OFFSET REG. 

(1) 022604 012777 000014 157144 MOV #TSTDMA! TSTCON, aSFR ‘SET TEST DMA AND CONTROL 

(1) 022612 012777 000024 157126 MOV #B1T4'BIT2,aCSR ‘SELECT MATRIX WORD MODE 

(1) 022620 052777 000001 157120 BIS #B1TO,aCSR [ENABLE NCV11 

(2) 022626 052777 000002 157122 BIS #TESTZ,aSFR ENABLE "TEST Z°* PULSES 

(2) 022634 042777 157114 BIC ATESTZ.aSFR [DISABLE ‘TEST 2'' PULSES 

(1) 022642 005037 060010 CLR 3760010 SCLEAR THE TARGET LOCATION 

(1) 022646 052777 010000 157102 BIS #B1T12,aSFR TALLOW 1 WORD TRANSFER 

(1) 022654 012737 060010 001122 MOV #60010. $8DADR SLOAD EXPECTED ADDRESS 

(1) 022662 012737 001124 MOV #1, $GDDAT [LOAD EXPECTED DATA 

(1) 022670 017737 156226 001126 MOV @SBDADR , $BDDAT “READ THE ACTUAL DATA 

(1) 022676 023737 001124 001126 CMP SGDDAT , $BDDAT * COMPARE 

(3) 022704 001401 BEQ TST1346 ::BR IF SAME 

(1) 022706 104033 ERROR 33 ZOFFSET INPUT TO MATRIX MUX. SELECTED 

(1) :THE WRONG ADDRESS - EXPECTED ADR. WAS 60010 
1628 Peete ttt iti titi ttt t itt ti tit tit itt iiiteti titi titi tt iit i itt ttt iii s 

(4) S*TEST 134 VERIFY A 1 WORD MATRIX MODE XFR USING OFFSET - 02 

(4) FL EAE REER RARER AEREREREREREAEERERAREERRERERREEEE 

(3) 022710 000004 151134: SCOPE 

(2) 022712 012737 000100 001160 MOV #100, $TIMES ::D0 100 ITERATIONS 

(1) 022720 012777 004000 157030 MOV #CLRALL,a@SFR :CLEAR THE DEVICE 

(1) 022726 012777 040004 157014 MOV #40004, aOF F LOAD THE OFFSET REG. 

(1) 34 012777 000014 157014 MOV #TSTDMA! TSTCON, aSFR ‘SET TEST DMA AND CONTROL 

(1) 022742 012777 000024 156776 MOV #B1T4'BIT2,aCSR ‘SELECT MATRIX WORD MODE 

(1) 022750 052777 000001 156770 BIS #B1T0,aCSR TENABLE NCV11 _ 

(2) 022756 052777 000002 156772 BIS ATESTZ,aSFR ENABLE "‘TEST Z'* PULSES 

(2) 022764 042777 000002 156764 BIC ATESTZ.aSFR [DISABLE ‘TEST 2°" PULSES 

(1) 022772 005037 040004 CLR 34740004 :CLEAR THE TARGET LOCATION 

(1) 022776 052777 010000 156752 BIS #B1712,aSFR ALLOW 1 WORD TRANSFER 

(1) 023004 012737 040004 001122 MOV #40004. $BDADR ‘TOAD EXPECTED ADDRESS 

(1) 023012 012737 000001 001124 MOV #1,$GDDAT [LOAD EXPECTED DATA 

(1) 023020 017737 156076 001126 MOV @SADADR , SBDDAT [READ THE ACTUAL DATA 

(1) 023026 023737 001124 001126 CMP SGDDAT , $BDDAT + COMPARE 

(3) 023034 001401 BEQ TST135 ::BR IF SAME 

(1) 023036 104033 ERROR 33 >OFFSET INPUT TO MATRIX MUX. SELECTED 

(1) : THE WRONG ADDRESS - EXPECTED ADR. WAS 40004 
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CZNCCB.P11 31-AUG-79 11:21 7135 VERIFY THE ADM INPUT TO THE MATRIX MUX. USING GAIN ENABLE SEQ 0076 


g FARRER EREEEREEREEREREEEEEREAEEEREREKEEEKEREERREERE 
TEST 135 VERIFY THE ADM INPUT TO THE MATRIX MUX. USING GAIN ENABLE 
M J RRARAEERRREEEEIE REE ERR RRREREEREEEEERAREREREEKRERREREERERER 
1$1135: SCOPE 
001160 MOV #10,$TIMES ;D0 10 ITERATIONS 
;WITH GAIN SET IN TEST CONTROL MODE, THE SELF TEST DATA SHOULD BE BYTE 250 
[WHEN PROCESSED THRU THE ADDRESS MAKER LOGIC THE NEW VALUE IS ‘'2552*' 
[VERIFY THAT THE MATRIX MUX CAN ADD 62550 AND 2552 CORRECTLY 
156700 MOV #CLRALL ,@SFR CLEAR THE DEVICE 
156664 #BUF0+2550, aOF F THE OFFSET REG. 
#TSTDMA! TSTCON, @SFR ‘SET TEST DMA AND CONTROL 
TENABLE GAIN, WORD MATRIX MODE 
ENABLE THE NCV11 
ZENABLE '‘TEST Z'* PULSES 
[DISABLE ‘TEST 2°’ PULSES 
[CLEAR THE TARGET ADDRESS 
ZCLEAR THE TARGET ADDRESS IF ‘‘TESTX’’ FAILS 
#B1T12,aSFR ;ALLOW 1 TRANSFER 


ae ;LOAD THE EXPECTED ADDRESS 
#1 , SGDDAT ;LOAD THE EXPECTED DATA 
@SADADR , SBDDAT READ THE ACTUAL DATA 
SGDDAT , $BDDAT ; COMPARE 
TST136 ;;BR IF SAME 
@ABUF 0+2722 TEST OTHER ADDRESS 
1$ :BR_IF NON-ZERO 
33 ;MATRIX MODE ADDER ERROR 
023210 ui GAIN AND WORD MATRIX MODE, THE ADDRESSES SELECTED WAS INCORRECT 


000406 Fs 
023212 1$: @ABUF 0+2722,$BDDAT ;LOAD INCORRECT DATA 
023220 5037 $GDDAT :CLEAR THE EXPECTED DATA 
023224 33 SMATRIX MODE ADDER ERROR DUE TO 
;"TESTX'” LOGIC SET IN ERROR 
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CZNCCB.P11 31-AUG-79 11:21 7136 VERIFY THE ADM INPUT TO THE MATRIX MUX. ADDER USING ZB ENABLE SEQ 0077 


FLARE RRA EEE EREEREEEREEEREEREREERERRAEREE ERE EREREREERE 
;*TEST 136 VERIFY THE ADM INPUT TO THE MATRIX MUX. ADDER USING ZB ENABLE 
TePARRAAAAASAALALSZALASALALELALE SESE SESE EEE SERRE RRR RRR RRR RRR RRR RR ASS SS 
023226 000004 181136: SCOPE 
023230 012737 001160 MOV #10,$TIMES -DO 10 ITERATIONS 
:WITH 2B ENABLE SET’ IN TEST CONTROL MODE, THE SELF TEST DATA SHOULD BE BYTE 224 
“WHEN PROCESSED THRU THE ADDRESS MAKER LOGIC THE NEW VALUE IS 12450 
[VERIFY THAT THE MATRIX MUX CAN ADD CORRECTLY 
012777 004000 15 MOV #CLRALL,@SFR ZCLEAR THE DEVICE 
WBUF 0+5224, aOF F ‘LOAD THE OFFSET REGISTER 
#TSTDMA! TSTCON, aSFR ‘SET TEST DMA AND CONTROL 
SR ZENABLE ZB AND WORD MATRIX MODE 
TENABLE ‘TEST Z'' PULSES 
ZENABLE NCV11 
“DISABLE ‘TEST Z°* PULSES 
‘CLEAR THE TARGET LOCATION 
‘ALLOW 1 TRANSFER 
‘LOAD THE EXPECTED ADDRESS 
SLOAD THE EXPECTED DATA 
‘READ THE ACTUAL DATA 
001126 S$GDDAT , S8DDAT : COMPARE 
TST137 ::BR IF SAME 
023354 33 ‘ADM INPUT TO THE MATRIX MUX SELECTED 
“WRONG ADDRESS - EXPECTED ADDRESS WAS BUFO + 2450 
DDB SI EIEIO IIIS OSIOIIOIITIIOIOITITIISIOIOOIDIUIOITITITI III III 


i*TEST 137 VERIFY LOW BYTE OPERATION OF THE ‘‘TESTX’’ FLOP 


RAE RAKE EEREREREREEAKEEERRKEEEEKEEKEEKKKEKE 


023356 000004 1S1137: SCOPE 
023360 MOV #10, $TIMES ::D0 10 ITERATIONS 
#CLRALL .aSFR CL 


#BUF 0 , @OF F 
oo oe OAD TEST CONTROL 
#2024,a ZSET ‘'GAIN'' AND WORD MATRIX MODE 
1T0, acer :SET NCV11 ACTIVE 
#TESTZ, eo SENABLE "TEST 2'* PULSES 
:DISABLE ‘TEST 2'* PULSES 
iSET *‘TESTX’* FLOP 
:CLEAR THE TEST FAILED LOCATION 
[CLEAR THE TESTX WORKED LOCATION 
#B1T12,aSFR ;ALLOW 1 TRANSFER 


#1,$GDDAT ;LOAD EXPECTED DATA 

@4BUF 0+0152, $BDDAT ;READ THE ACTUAL DATA 
senea $BDDAT sCOMPARE DATA 

TST140 7 7BR IF SAME 

Seeuronesse ie TESTX FAILED LOCATION 


;2BR_IF 
Fors 140 ; TESTX FAILED TO INHIBIT BITS 8-15 OF THE *‘SUM ADDER’ 
pres yee. sapDAT ;GET ACTUAL DATA 
CL $GDD CLEAR EXPECTED 
023542 104034 34 ;TESTX FAILED TO INHIBIT BITS 8-15 OF THE “SUM A 
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T1460 VERIFY BIT 12 ADDER INPUT TO MATRIX MODE MUX SEQ 0078 
5 FARA AAA ARR EEREREAEEEEEAEERERERKEEEERERERRERRREERERERERREREREREERR EEE 
S*TEST 140 VERIFY BIT 12 ADDER INPUT TO MATRIX MODE MUX 
J FAA EE REAR EREAEEREEREKEREEERERREEEEEEREEEEEEEEEREREEERREREE 
1ST140: SCOPE 

MOV #100, $TIMES ::D0 100 ITERATIONS 

MOV #CLRALL, a@SFR :CLEAR THE DEVICE 

MOV #50000, aOF F [LOAD THE OFFSET REG. 

MOV #TSTDMA! TSTCON, asFR 3SET TEST DMA AND CONTROL 

MOV #2030.@ SELECT GAIN MATRIX BYTE MODE 

BIS qalTO a¢en “ENABLE NCV11 

BIS ATESTZ,aSFR TENABLE ‘TEST 2°' PULSES 

BIC #TESTZ.aSFR ‘DISABLE ‘TEST 2'* PULSES 

CLR @HBUF 042726 SCLEAR THE TARGET LOCATION 

BIS #B1T12,aSFR TALLOW 1 WORD TRANSFER 

MOV #BUF0+2726, SBDADR SLOAD EXPECTED ADDRESS 

MOV #1, $GDDA [LOAD EXPECTED DATA 

MOV SSADADR. SEDDAT [READ THE ACTUAL DATA 

CMP SGDDAT , $BDDAT * COMPARE 

BEQ TST141 ::BR IF SAME 

ERROR 33 >MATRIX ADDER FAILED TO SELECT CORRECT ADDRESS 

;THE WRONG ADDRESS - EXPECTED ADR. WAS BUFO+2726 

JL REAR REE EEREEEEREREERAREREAEEREAREEAEEERAEEREEEEEEREEAEREEKEK 
S*TEST 141 VERIFY BIT 13 ADDER INPUT TO MATRIX MODE MUX 
J FAA RRR EREERERREEREREERREEEREREREEEERREREREREEREKEEKE 
TST141: SCOPE 

MOV #100, $TIMES 7:D0 100 ITERATIONS 

MOV #CLRALL,a@SFR :CLEAR THE DEVICE 

MOV #37776, aOFF “LOAD THE OFFSET REG. 

MOV #TSTDMA! TSTCON, aSFR [SET TEST DMA AND CONTROL 

MOV #2032,aCSR [SELECT GAIN MATRIX BYTE MODE 

BIS #81T0.aCSR TENABLE NCV11 

BIS ATESTZ,aSFR ENABLE "TEST Z** PULSES 

BIC #TESTZ.a@SFR “DISABLE "TEST 2°’ PULSES 

CLR @HBUF 0+5522 ‘CLEAR THE TARGET LOCATION 

BIS #B1T12,aSFR *ALLOW 1 WORD TRANSFER 

MOV WUE 0*5522, $BDADR “LOAD EXPECTED ADDRESS 

MOV #1, $GDDAT ;LOAD EXPECTED DATA 

MOV @SADADR , $BDDAT READ THE ACTUAL DATA 

CMP $GDDAT , $8DDAT COMPARE 

BEQ TST142 7 7BR IF = 

ERROR 33 TRIX ADDER FAILED TO SELECT CORRECT ADDRESS 


3 THE WRONG ADDRESS ~ EXPECTED ADR. WAS BUFO+5522 


8B 7 
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CZNCCB.P11 31-AUG-79 11:21 7142 VERIFY BIT 14 ADDER INPUT TO MATRIX MODE MUX 


°s PRR RRRARSBSLASAASLASASRASLELLARLAASARALALALARARA LALLA SARA RRA R RR AR ASRS SSS 


S*TEST 142 VERIFY BIT 14 ADDER INPUT TO MATRIX MODE MUX 
+ RRRRRRAR ERR A ERA ER AERA RE REE ER EERE ERE ERE REE REED 


024024 000004 TST142: SCOPE 
024026 012737 MOV A lage 3:D0 100 ITERATIONS 


012777 occ THE DEVICE 


; TEST IF ENOUGH MEMORY >20K 
NO ROOM 


. @OF F ;LOAD THE OFFSET REG. 
#TSTDMA! TSTCON, aSFR SET TEST DMA 


AND CONTROL 
#2034,a SELECT ona MATRIX BYTE MODE 
#BI1TO, Hat E NCV11 


#TESTZ, aSFR 

MTESTZ,@SFR 

BABU 0+4 5656 

#B1T12,a 

MBUF 043656, SBDADR 

#1, $GDDAT 

@SBDADR, $BDDAT ;READ THE ACTUAL DATA 

S$GDDAT , SBDDAT : COMPARE 

TST143 ;;BR IF SAME 

024162 104033 33 sMATRIX ADDER FAILED TO SELECT CORRECT ADDRESS 
;THE WRONG ADDRESS - EXPECTED ADR. WAS BUF0+43656 
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CZNCCB.P11 31-AUG=79 11:21 1143 CHECK FOR HIGH BYTE ‘‘INC OVFL'’ TO SET CELL OVERFLOW 


5 LARA EERAERRAERREREAREREEREA EERE EEREERAEEREREEREERRRERREREREREREEEE 


S*TEST 143 CHECK FOR HIGH BYTE ‘‘INC OVFL*’ TO SET CELL OVERFLOW 


5 RERRAAEARAEERAAERRERAEERRERRERREERRRREAERERERRERRKERAEREEEERRRR AED 


1$1143: SCOPE 
MOV 


#10, $TIMES 3:D0 10 ITERATIONS 
ACLRALL ,@SFR CLEAR THE DEVICE 
awCR ZCLEAR W wh 


CLEAR B.A 
MBUF 0 , @OF F SLOAD INITIAL OFFSET REGISTER 
#B1T10!BIT4'BIT1,aCSR ENABLE MATRIX MODE BYTE AND SET GAIN 
MTSTDMA! TSTCON, @SFR ; TES ONTROL 
#B1T0,aCSR 
MTESTZ,@SFR ; 
MTESTZ,@SFR :DISABLE ‘TEST 2°’ PULSES 


VV 
OMIT 
VMAs 
VMI 
SRRNR8S 

f£MmOO 


#100 ,BUF 0+1264 ;LOAD LOW BYTE TO A_KNOWN VALUE 
#377 ,BUFO+1265 SET HIGH BYTE TO 377 
ABIT12,aSFR ;ALLOW 1 TRANSFER 


og ig th SE alii SGDDAT ;LGAD EXPECTED STATUS 

acSR,S$BDDAT ;READ THE ACTUAL STATUS 

$GDDAT, SBDDAT * COMPARE 

1$ i IF SAME 

30 ;CELL OVERFLOW FAILED TO SET 
WHEN INCREMENT ING THE HIGH BYTE 

BUF 0+1264,$BDDAT ;READ THE BUFO LOCATION 

#177500, $GDDAT ;LOAD EXPECTED VALUE 

SGDDAT , SBDDAT j COMPARE VALUES 


TST144 ;3;BR IF SAME 
30 TARGET LOC. DATA WAS INCORRECT 
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000400 
050024 
000001 
024422 
004000 
000010 
000000 
001124 
155276 
000022 
000001 


000001 
155222 


155242 
001124 


001124 


000400 
050024 
000001 
024570 
004000 
000010 
001124 
155134 
177777 
000022 
000001 
000001 
155054 


155072 
001124 


001124 


MACY11 


8s 
VMI oF 


g 


tababad 8 ababed 
Min UU 
@Q—=tat ahotadh abad 
Sz uo —f% 
sO ONO OF 


7 
13:10 DAG GE 58 
VERIFY EACH BIT OF THE LOWER 16 BIT Z COUNTER 


(TESTER ONLY) 


SUA ERERARAEEEEREREREEREREREREERERREERREEEEREEERERREEEREEEEREREREE 


VERIFY EACH BIT OF THE LOWER 16 BIT Z COUNTER 


(TESTER ONLY) 


5 RERAREKEEEREEEEKRREEAEEERREREKERAEREERAEERAEERERREKKEEAEEEREEKERREEHE 


30G(1063) 31-AUG-79 

1144 

TeTEST 144 

17144: SCOPE 
MOV #400, $TIMES 
TST WF MODE 
BEQ TST145 
MOV #1, $GDDAT 
MOV #1$,$LPERR 

1$ MOV #CLRALL,@SFR 
MOV ATSTDMA, aSFR 
MOV #0, aWCR 
MOV $GDDAT, @BAR 
DEC @BAR 
MOV #B81T4!BIT1,aCSR 
BIS #B1T0,aCSR 
BIS #B1T0.aDACSR 

2$: TSTB  aDACSR 
BPL 2$ 
MOV @BAR , SBDDAT 
CMP $GDDAT , $BDDAT 
BEQ 3$ 
ERROR 10 
BR TST145 

3$: ASL $GDDAT 

E 1$ 


3:D0 400 ITERATIONS 
;TEST IF TESTER MODE 
;;BR IF NOT 
LOAD EXPECTED VALUE 
LOAD LOOP ADDRESS 


:CLEAR THE DEVICE 
ioe TEST DMA FLOP 
;LOAD UPPER 16 BITS 


“LOAD INITIAL COUNTER VALUE 
SENTER MATRIX MODE 

7 ENABLE THE ai * 

SGENERATE "'2'" PUL 

;WAIT FOR Z PULSE SEOMPLETION 


;READ EXPECTED REGISTER VALUE 

; COMPARE 

7 ;BR IF SAME 

;LOWER 16 BITS OF THE Z COUNTER IN ERROR 


i :CHANGE THE DATA BIT 
‘BR AND TRY NEXT BIT 


'WRASOGSGASLLLALA£ AS SRS LASAESESESERRRASESARA RARER SAA ARR RSA SARA RAS AS DO 


TeTEST 145 


VERIFY EACH BIT OF THE HIGHER 16 BIT Z COUNTER 


(TESTER ONLY) 


Wet AARAAEAAASSASLESAAAALERLSRARASASARRR SARA AL ARAL AR ASAR REDS DD 


151145: SCOPE 
MOV 


#400,$TIMES 
TST WF MODE 
BEQ TST146 
MOV #1 ,$GDDAT 
MOV #1$,SLPERR 
1$: MOV ACLRALL ,@SFR 
MOV #TSTDMA,aSFR 
MOV SGDDAT ,awCR 
DEC awCR 
MOV #-1 ,@BAR 
MOV #B81T4!BIT1,aCSR 
BIS #B1T0,aCSR 
BIS #B81T0,aDACSR 
2$: TSTB aDACSR 
BPL 2$ 
MOV awWCR,$BDDAT 
CMP $GDDAT , S$BDDAT 
BEQ 3$ 
ERROR 11 
BR TST146 
3$: ASL $GDDAT 
BNE 1$ 


3:DO0 400 ITERATIONS 
sTEST IF TESTER MODE 
:;BR IF NOT 
;LOAD EXPECTED VALUE 
;LOAD LOOP ADDRESS 


;CLEAR THE DEVICE 
:SET TEST DMA FLOP 


[LOAD INITIAL COUNTER VALUE 
;LOAD LOWER 16 BITS 
SENTER oe MODE 
:ENABLE T ay 
: GENERA pe But 
WAIT FOR 2 PULSE SEOMPLETION 


;READ EXPECTED REGISTER VALUE 

>; COMPARE 

SAME 

16 BITS OF THE Z COUNTER IN ERROR 


CHANGE THE DATA BIT 
;BR AND TRY NEXT BIT 


SEQ 0081 





















000004 

(1) 024706 012737 
005737 

001443 

1845 024722 012737 
1847 024730 012777 


012737 
012777 








1879 025152 104010 
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000400 
050024 
000001 
004000 
000010 
000000 
000000 
000422 
000001 
000001 
154720 


154740 
001124 


000100 
050024 


000001 
094000 
000010 
000000 
000000 
001022 
000001 
000001 
154574 


154614 
001124 
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001760 


001124 
154674 
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1146 VERIFY THAT CAMERA 01 CHANNEL IS OPERATIONAL (TESTER ONLY) SEQ 0082 


DDB IOIOI ISIS RTE TE Rt tht tt tt tt ttit 
2 *TEST 146 VERIFY THAT CAMERA 01 CHANNEL IS OPERATIONAL (TESTER ONLY) 

eee RRR EERE EERE ERE RERER RARER EERE ERRERERRE REE EEE 
181146: SCOPE 
MOV #400, $TIMES ;:D0 400 ITERATIONS 


TST WF MODE ; TEST IF TESTER MODE 
BEQ TST147 ;;BR IF NOT 
MOV #1,$GDDAT ;LOAD EXPECTED VALUE 
1$: MOV ACLRALL,@SFR ;CLEAR THE DEVICE 
MOV #TSTDMA,aSFR ;SET TEST DMA FLOP 
MOV #0,aWCR ; LOAD UPPER 16 ar 
MOV #0, @BAR LOAD LOWER 16 BITS 
MOV #B1T8'BIT4'BIT1,aCSR ‘ENTER MATRIX MODE ON CAMERA 01 
BIS #BITO,aCSR S ENABLE THE DEVICE 
BIS ob aDACSR ‘GAIT FoR *'7'' PULSE 
2$: a ~_ WAIT FOR Z PULSE COMPLETION 
L 
MOV @BAR , SADDAT sREAD EXPECTED REGISTER VALUE 
CMP SGDDAT , SBDDAT >; COMPARE 
BEQ TST147 723BR IF SAME 
ERROR 10 LOWER 16 BITS OF THE Z COUNTER 
3 IN ERROR WHEN USING CAMERA 01 


SARA ARERR AREER ERR EREEEEEEREEEREERERAEEERERREAEREARAERAREERARERKEER EEE 


S*TEST 147 VERIFY THAT CAMERA 10 CHANNEL IS OPERATIONAL (TESTER ONLY) 


WEARS AASSSALRRSSALELASARASALE RE RES ESE SARS ESE R RAR SAR RAR ARR SDSS SE S| 


TST147: SCOPE 
MOV #100, $TIMES ;:D0 100 ITERATIONS 
TST WF MODE ;TEST IF TESTER MODE 
BEQ TST150 ;;BR IF NOT 

#1, $GDDAT ;LOAD EXPECTED VALUE 


1$: MOV ACLRALL ,@SFR :CLEAR THE DEVICE 
yA typ atin 














#0 ,@BAR 
#B1T9!BIT4!BIT1,aCSR 
BIS #B1T0,aCSR ENABLE THE DEVICE 

BIS #B1T0,aDACSR ;GENERATE ‘'2'* PULSE 

aDACSR WAIT FOR Z PULSE COMPLETION 














MOV @BAR , SBDDAT READ EXPECTED REGISTER VALUE 

CMP SGDDAT , S$BDDAT ; COMPARE 

BEQ TST150 ::BR IF SAME 

ERROR 10 LOWER 16 BITS OF e Z COUNTER 
; IN ERROR WHEN USING CAMERA 10 
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VERIFY THAT CAMERA 11 CHANNEL IS OPERATIONAL (TESTER ONLY) 


Sf REAR EEEEEEEREREERERREREREERRRRERRAREREEREERREERRREAERRRRH 


° 
-* 
° 


TEST 150 


VERIFY THAT CAMERA 11 CHANNEL IS OPERATIONAL (TESTER ONLY) 


WeReABARGAASAAASAARASAASLASLAAASAARSRAR RARER ARRE RAR ARARARA RRR ASA A SESS DS | 


1§ 


1$: 


2$: 


T150: SCOPE 
MOV 


#100, $TIMES ;:D0 100 ITERATIONS 
WF MODE Ay IF TESTER MODE 


TST151 ;;BR IF NO 

#1,$GDDAT ;LOAD EXPECTED VALUE 
MCLRALL.@SFR ;CLEAR THE DEVICE 
#TSTDMA,aSFR :SET TEST DMA FLOP 

#0,awCR ;LOAD UPPER 16 BITS 

#0,@BAR ;LOAD LOWER 16 BITS 
#B1T9!BITB'!BIT4'BIT1, acsR sENTER MATRIX MODE 
#BITO,aCSR 7; ENABLE THE pS . 

aby @DACSR ; GENERATE °'Z°' PUL 

iat ‘WAIT FOR Z PUL st SE OMPLETION 
@BAR , SBDDAT ;READ EXPECTED REGISTER VALUE 
$GDDAT, S$BDDAT ; COMPARE 

TST151 ;7;BR IF SAME 

10 OWER 16 BITS OF ne P COUNTER 


zl 
7 IN ERROR WHEN USING CAMERA 


SEQ 0083 


G 
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C2NCCB.P11 —- 31-AUG=79 11:21 151. DYNAMIC MATRIX MODE ADDRESS SEQ 0084 

1902 SL RRAAAAAAEARARARRERERARAERAERERAARERREEEREERTARRERREERAERREARERR EES 

(3) S*TEST 151 DYNAMIC MATRIX MODE ADDRESS 

(3) a J RARAAAAARARAAAAAERAARARARARRAARERERAARERARAAAAARRAEARRARARAARRHAED 

(2) 025300 000004 1ST151: SCOPE 

(1) 025302 012737 000002 001160 MOV #2, STIME :D0 2 ITERATIONS 
1903 :CELL INCREMENT OF A FLOATING LOCATION (60000, 70000, 64000,62000,61000) 

904 ‘FILL THE MEMORY BUFFER WITH A KNOWN PATTERN (125252) 


;COLLECT DATA OF 0 AND INCREMENT A NTARGET LOCATION 


1 

1 

1906 ‘VERIFY THAT NO OTHER ADDRESS IS CHANGED 

1907 :AFTER VERIFYING THE WHOLE BUFFER - UPDATE THE OFFSET REGISTER 
1908 AND INCREMENT ANOTHER LOCATION 

1909 025310 012737 060000 050030 MOV #BUF O NT — ;PRIME THE CURRENT TARGET LOC. 
1910 025316 012737 020000 025664 MOV weir Ss 1008 ‘LOAD FORCE BIT 

1911 025324 012737 025332 001110 MOV #2$,$LPERR *LOAD RETURN ADDRESS 

1912 ;PRIME THE BUFFER WITH A 125252 PATTERN 

1913 025332 012700 060000 o$: MOV #BUFO,RO :LOAD POINTER TO BUFFER 

1914 025336 012701 125252 MOV #125252,R1 [LOAD VALUE 

1915 025342 013702 003354 MOV ADNOK T R2 ;LOAD BUFFER END ADDRESS 

1916 025346 010120 3$: MOV R1, (RO) + “LOAD BUFFER WITH DATA 

1917 025350 020002 CMP RO.R2 “TEST FOR END 

1918 025352 001375 BNE 3 

1919 025354 012777 177770 022446 MOV #-10,@CURENT — ;PRIME THE TARGET LOCATION 

1921 025362 012777 004000 154366 MOV ACLRALL,@SFR —s; INIT _THE DEVICE 

1922 025370 013777 050030 154352 MOV CURENT , @OF F “LOAD OFFSET TO TARGET 

1923 025376 012777 177777 154346 MOV #-1,aWwCR ;PRIME THE HIGH 16 BIT Z COUNTER 
1924 025404 005077 154344 CLR aBAR [CLEAR LOW 16 BIT COUNTER 

1925 025410 012777 000004 154340 MOV #TSTCON,@SFR ENABLE TEST CONNECTOR 

1926 025416 012777 000024 154322 MOV #24,aCSR SLOAD MATRIX WORD MODE 

1927 025424 052777 O00002 154324 BIS ATESTZ,ASFR ;SET TEST Z FLOP 

1928 025432 052777 060001 154306 BIS #BITO,acsR TENABLE THE NCV11 

1930 025440 013700 002012 MOV CPUDL2,RO :PRIME THE DELAY 

1931 025444 005001 CLR R1 

1932 025446 032777 060000 154272 4$: BIT $31716!81T13, acsR sTEST FOR CELL OR Z OVERFLOW 
1933 025454 001014 BNE 5$ :BR IF EITHER IS SET 

1934 025456 005301 DEC R1 S DELAY 

1935 025460 001372 BNE 4$ i 
1936 025462 005300 DEC RO :DELAY 

1937 025464 001370 BNE 4$ 

1938 025466 017737 154254 001126 MOV @CSR,$8DDAT :READ BAD STATUS 

1939 025474 012737 060224 601124 MOV  webderencthscitcte: » SGDDAT LOAD EXPECTED STATUS 
1940 025502 104002 ERROR 2 DYNAMIC” MATRIX MODE STATUS ERROR 
1941 025504 000470 BR TST152 

1942 025506 012700 060000 S$: MOV #BUFO,RO “GET BUFFER POINER 

1943 025512 023700 050030 6$: CMP CURENT ,RO iTEST IF TARGET ADDRESS 

1944 025516 001415 BEQ 7$ BR IF YE 

1945 025520 010037 001122 MOV RO, $BDADR “GET BAD ADDRESS FOR TYPE-OUT 
1946 025524 011037 001126 MOV (RO) , SBDDAT [GET BAD DAT 

1947 30 012737 125252 001124 MOV #125252,$GDDAT :LOAD EXPECTED DATA 

1948 025536 023737 001124 001126 CMP $GDDAT . $BDDAT : COMPARE 

1949 025544 001417 BEQ 10$ BR IF SAME 

1950 025546 104033 FRROR 33 ; CHANGED AN INCORRECT TARGET LOCATION 
1951 025550 000446 BR TS1152 

1952 025552 013737 050030 001122 7$: MOV CURENT,SBDADR  :LOAD EXPECTED ADDRESS 

1953 025560 017737 022244 001126 MOV @CURENT,$BDDAT :LOAD ACTUAL DATA 
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003407 
001124 


003354 


001202 
004000 
025664 
000002 


060000 
025664 
000002 
060000 


020000 
025720 


060000 
125252 
003354 


153700 


153310 


025664 


050030 
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001160 
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026244 
001110 


153716 
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1151 DYNAMIC MATRIX MODE ADDRESS 


MOV #3407, $GDDAT ;LOAD EXPECTED DATA 
CMP $SGDDAT,S$BDDAT =; COMPARE 
BEQ 10$ ;;BR IF SAME 


10$: TST (RO) + :BUMP THE POINTER INTO THE BUFFER 
CMP ADNOKT ,RO ‘TEST IF FINISHED THE BUFFER 
BNE 6$ ‘BR AND RETEST THE REST OF THE BUFFER 
TST $PASS :TEST IF pEARST PASS 
BEO TST152 +:BR IF YES 
BIT #5w11,aSwR :T7EST INHIBIT INTER. 
BNE TST152 :;BR IF SET 
ASR ‘CHANGE THE FORCED ADDR. BIT 
CMP #2,100$ ;TEST IF FINISHED 
BEQ TS7152 ‘:BR IF FINISHED 
MOV WBUFO,CURENT = § :MAKE UP NEW ADDRESS 


BIS 100$, CURENT 
BR 2s 
100$: B1T13 


CF RAAAAAAAAARARAAEKKRARRARRAERARARARERARRERRRARERARAAERARERRERRRERH 


i*TEST 152 DYNAMIC LIST MODE ADDRESS 


WeRA PAAR RARASASZALSLALALSALASAARR SEAS ARAL ESLER ASA RRR RR RRR RRA RR SRS SED) 


TST152: SCOPE 
MOV #2,$TIMES ;D0 2 ITERATIONS 
4 THE MEMORY BUFFER WITH A KNOWN PATTERN (125252) 
O A 1 WORD TRANSFER TO A TAGET LOCATION 
VERIFY THAT NO OTHER LOCATION IN THE BUFFER IS CHANGED 
AFTER VERIFYING BUMP THE BUS ADDRESS AND DO SUB-TEST AGAIN 


MOV #BUF 0, CURENT 
MOV #81713, 100$ 


MOV #2$,$LPERR 
;PRIME THE BUFFER WITH A 125252 
2s: MOV 


#BUF 
MOV m1 25282, 


MOV 
3$: MOV R1, (RO) + 
CMP RO.R2 
BNE 3$ 
MOV ACLRALL,@SFR 
MOV #-1,awCR 


MOV CURENT , @BAR 
MOV A#TSTCON, @SFR 
BIS #B1T0,aCSR 
BIS ATESTZ,@SFR 
BIC AMTESTZ,@SFR 


MOV CPUDL2 RO 
R1 


CLR 

4$: BIT #B81T14!B1T13,aCSR 
BNE 5$ 
DEC R1 ; 
BNE 4$ 
DEC RO 


BN 4$ 
MOV aCSR,$BDDAT 


PRIME THE CURRENT TARGET LOC. 
LOAD FORCE 
;LOAD RETURN ADDRESS 


PATTERN 


: LOAD Ary TO BUFFER 


;LOAD VAL 

[LOAD BUFFER END ADDRESS 
;LOAD BUFFER WITH DATA 
[TEST FOR END 


INIT THE DEVICE 
;PRIME THE WORD COUNT 
;LOAD TARGET LOCATION POINTER 
ENABLE MAINT. MODE 
ENABLE THE NCV11 
sENABLE ‘‘TEST 2°* PULSES 
;DISABLE ‘‘TEST 2°* PULSES 


;PRIME THE DELAY 


;;BR IF EITHER IS SET 
LAY 


; DELAY 
;READ BAD STATUS 


;TEST FOR CELL OR Z OVERFLOW 





SEQ 0085 
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026172 


026174 
30 psess 
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060224 
060000 
050030 
001122 
001126 
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001124 


050030 
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003407 
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003354 


001202 
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026244 
000002 


060000 
026244 
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001124 


152730 


026244 


050030 
050030 


$3: 
6$: 


78: 


10$: 


100$: 


31-AUG-79 


me 
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DYNAMIC LIST MODE ADDRESS 
sealer allaeae: ‘DYNAMIC’ ;LOAD EXPECTED STATUS 


BR 
BIT13 


CURENT ,RO 
7$ 
RO SBDADR 
(RO) 


DAT 
rosgee) SCDDAT 
SGDDAT, , $BDDAT 


21 

TST153 
CURENT , SBDADR 
@CURENT , SBDDAT 
#3407 ,SGDDAT 
teehee 


$PASS 
TST153 
ora aSwR 


7153 


BUFO, CURENT 
cman 


IC LIST MODE STATUS ERROR 


GET BUFFER POINER 
Hiy IF TARGET ADDRESS 


BR IF YES 
GET BAD le FOR TYPE-OUT 
:GET BAD DAT 
LOAD EXPECTED DATA 
> COMPARE 


:;BR IF SAME 
: CHANGED AN INCORRECT TARGET LOCATION 


+ LOAD EXPECTED Date: 
;GET ACTUAL DAT 

SLOAD EXPECTED DATA 
COMPAR E 


;7BR IF SAME 
;LIST MODE DATA ERROR 


“BUMP THE POINTER INTO THE BUFFER 
“TEST IF FINISHED THE BUFFER 
‘BR AND RETEST THE REST OF THE BUFFER 


: TEST IF FIRST PASS 
;BR_IF FIRST PASS 

{TEST INHIBIT INTER. 

; CHANGE ot FORCE ADDRESS 

s TEST IF END 

;;BR IF FINISHED 

WAKE NEW ADDRESS 


SEQ 0086 





CZNCCB 


NCV11 


CZNCCB.P11 


026246 


026306 
026310 
026312 
026314 


DIAGNOSTIC 
31-AUG-79 11:21 


003354 


MACY11 


001160 


153434 
153420 


J 
ae 31-AUG-79 13:10 PAGE 62 


153. DYNAMIC LIST MODE TRANSFER = MAXIMUM BUFFER LENGTH IN LOWER 28K SEQ 0087 
TPR BRRSBAABSAAAAAAASZALALLESAASLESSLESE ESS ESE RES ARR RRR RRR RSA RRS ESSA S SS SY 
CSTEST 153 DYNAMIC LIST MODE TRANSFER = MAXIMUM BUFFER LENGTH IN LOWER 28K 
MPR RRBABABSAAAAAASZASLARBLESESASRALSAS ESE AES ASA SARS ARERR ARA RRR RR RRR SRSA RSS SE 
181153: SCOPE 
MOV #40,$TIMES ::D0 40 ITERATIONS 
MOV ADNOKT ,RO ‘GET LAST ADDRESS 
SUB #BUF ORO “DETERMINE THE WORD COUNT VALUE 
NEG RO 
ASR RO 
“PRIME THE BUFFER WITH A 125252 PATTERN 
3$: MOV #BUFO,R3 :LOAD POINTER TO BUFFER 
MOV #125252,R1 “LOAD VALUE 
MOV ADNOKT ,R2 ‘LOAD BUFFER END ADDRESS 
3$: MOV R1, (R3)+ “LOAD BUFFER WITH DATA 
CMP R3,R2 *TEST FOR END 
BNE 3$ 
:NOW COLLET THE LIST MODE DATA 
MOV ACLRALL,@SFR ——; INIT _ THE DEVICE 
MOV RO, awWCR ‘PRIME THE WORD CCUNT 
MOV #BUF 0, @BAR SLOAD TARGET LOCATION POINTER 
MOV ATSTCON,@SFR =: ENABLE MAINT. MODE 
BIS #B1T0,aCSR ‘ENABLE THE NCV11 
BIS #TESTZ,aSFR TENABLE MAINT. Z 
MOV CPUDL2,RO “PRIME THE DELAY 
4$: BIT #B1T14'BIT13, acsk sTEST FOR CELL OR Z OVERFLOW 
BNE 5$ :BR IF EITHER IS SET 
DEC R1 : DELAY 
BNE 4$ 
DEC RO :DELAY 
BNE 4$ 
MOV aCSR,$BDDAT ;READ BAD STATUS 


MOV #81T14'B1T13+200.$GDDAT ;LOAD EXPECTED STATUS 
pees 36 4 ;DYNAMIC LIST MODE STATUS ERROR - NO WORD COUNT OVERFLOW 


5$: MOV #BUF 0 ,RO :GET BUFFER POINER 


6$: MOV RO, $BDADR [GET BAD + 7 FOR TYPE-OUT 
MOV (RO) , SBDDAT [GET BAD DAT 


MOV #3407,$GDDAT  : LOAD EXPECTED DATA 
CMP sappar, » SBDDAT ; COMPAR E 


BEQ ;3;BR_IF SAME 
ERROR Feress :LIST MODE DATA ERROR 
10$: TST (RO) + “BUMP THE POINTER INTO ae BUFFER 


CMP ADNOKT ,RO TEST IF FINISHED THE BUFFER 
BNE 6$ [BR AND RETEST THE REST OF THE BUFFER 


CZNCCB 


NCV11 


CZ2NCCB.P11 


od 
ew 


RONQNIMONMONONND PONY MOM NONMONM NO NMNNNNNo Ny 
SSawane RWrwmOSBYURARALS 


ee ee ed ed ed eed ed od od 


N 
rrr 
Wwr— 


MOMIN NINN 
ant ah an oath al ed 

NMorononn 
VRSVRRR 


026762 


DIAGNOST 
31-AUG-79 


101254 


IC 
11: 


MACY11 30G6(1063) 
7154 


001160 
041742 
172346 


177572 
177572 


153136 


177572 
177572 
001126 


152174 


041742 
041742 


WRASA ASA @EASAAAASAASZARAAALSASALAAALASASLAAS LALA ASRS E ARRAS ASE EDD S| 


ONE MATRIX DATA TRANSFER TO EACH 4K EXTENDED MEMORY 


J RRA AAER AAA EREERE ERR ARERRRARERARRREREEREREREERERERRREEE 


31-AUG-79 

T*TEST 154 

1$T154: SCOPE 
MOV #2,$TIMES 
TST $kT11 
BPL TST155 

:DO A BYTE MATRIX MODE TRANSFER 

; MEMORY BANK 
MOV #600, 0UT 

1$: MOV OUT , @#KIPAR3 
MOV #BUFO,RO 
MOV #125252, (RO) 
BIS #1400, a#SRO 
MOV #370, (RO) 
BIC #1400, a#SRO 
MOV OUT ,Ri 
CLR R2 
ASL R1 
ASL R1 
ASL R1 
ASL R1 
ASL R1 
ROL R2 
ASL R1 
ROL R2 
MOV R2,NARROW 
MOV R1.$BDADR 
ADD R2.R1 

:NOW GET READY TO DO THE TRANSFER 
MOV ACLRALL,a@SFR 
MOV R1,@0FF 
MOV 
MOV ATSTDMA! TSTCON, aSFR 
BIS 1T0,aCSR 
BIS ATESTZ,aSFR 
BIC ATESTZ.aSFR 
MOV #371, $GDDAT 
BIS #BITI2,aSFR 
BIS #8110, a#SR 
MOV (RO) , $BDDAT 
BIC #B1T0, a4#SRO 
CMP $GDDAT , $BDDAT 
BEQ 2$ 
ERROR 35 

2s: TST $SPASS 
BEQ TST155 
BIT #SW11,aSWR 
BNE 157155 
ADD #200, 0UT 
CMP $1. STBK OUT 
BHI 1$ 


Be Be Be 
“4 


K 
13:10 PAGE 63 
ONE MATRIX DATA TRANSFER TO EACH 4K EXTENDED MEMORY 


;;D0 2 ITERA 


TIONS 
; TEST ¥ KT=11 INSTALLED 


;BR I 
16 A 1 BYTE LOCATION IN EACH 4K EXTENDED 


;LOAD INITIAL BANK VALUE 


;LOAD KT=PAR REG #3 <BUFFER IS AT LOC 60000> 


;LOAD BUFFER POINTER 


:PRIME BAD TARGET LOC. i EXT ADD FAILS 


ENABLE MAINT. 


;DISABLE MA 
:GET 


SAVE EA BITS 
SAVE EA BITS 


7; SAVE 
; SAVE 


33 


NIT THE NCV11 
OAD C 


MODE KT~-1 
;LOAD re t= LOCATION DATA VALUE 


MODE KT~11 


BANK VALUE 
SCLEAR EXT. ADD. TEMPORARY 
MO FT 


EA BITS FOR TYPEOUT 
ADDRESS BITS FOR TYPEOUT 
MAKE COMPLETE ADDRESS 


cL OMBINED BUFFER ADDRESS 
WEIT4'BIT1,aCSR :ENABLE THE NCV11 


ENABLE MAINT NCV11 MODE 
;ENABLE THE NCV11 

;ENABLE '‘TEST 2°" PULSES 
:DISABLE “TEST 2** PULSES 


;LOAD EXPECTED DATA 


sENABLE 1 ae TRANSFER 


;;BR SAME 
DATA TRANSFER ERROR TO EXTENDED MEMORY 


- TEST “py ad ER 


;;BR_IF 


FIRST PASS 
Test IF at INTER. 


iT 


EST IF 


:BR IF NOT 


SET 
;UPDATE BANK VALUE 
DONE 


SEQ 0088 


CZNCCB NCV11 _ DIAGNOSTIC MACY11 30G(1063) 31-AUG=79 13:10 PAGE 64 
CZNCCB.P11 31-AUG-79 11:21 7155 ONE LIST DATA TRANSFER TO EACH 4K EXTENDED MEMORY 


REAR RERR ERR REREERA ER RA ER RER EEE TRERRRT EEE 
“REST 155 ONE LIST DATA TRANSFER TO EACH 4K EXTENDED MEMORY 
eT ITI CTI ISITE TTT TTT Titi Titi ti iii iii ii iiiiiiiititi iii tii. 

000004 181155: SCOPE 
012737 000002 001160 P 32D0 2 ITERATIONS 
005737 $KT11 ;TEST IF KT=11 INSTALLED 


100130 BP $1156 :BR IF 
;D0 A 1 WORD MODE TRANSFER TO A i WORD BUFFER IN EACH 4K EXTENDED MEMORY BANK 
012737 000600 041742 MOV #600 ,OUT to INITIAL BANK VALUE <60000> 
172346 18: OUT, SAK IPARS ;LOAD KT=PAR REG =. <BUFFER IS AT LOC 60000> 


#BUFO,RO 
#0508 (RO) 
177572 #1400, a4SRO ‘Ee MA MO 
#125252, (RO) ;PRESET THE TARGET LOCATION 
177572 #1400, a4SRO DISABLE MAINT. MODE KT-11 
OUT ,Ri “GET BANK VALUE 
2 [CLEAR EXT. ADD TEMPORARY 


SAVE EXT. ADDRESS BITS 
006301 
027072 SAVE EXT. ADDRESS BITS 


:NOW GET READY TO DO THE TRANSFER 
027074 004000 152654 MOV ACLRALL,@SFR INIT THE NCV11 
R2, SOFF [LOAD THE EXTENDED ADDRESS BITS 
152636 #~-1,awcR ; LOAD WORD COUNT 
R1, BAR LOAD BUS ADDRESS 
152630 #TSTDMA! TSTCON, aéFr sENABLE MAINT NCV11 MODE 
TENABLE THE NCV11 
sENABLE ‘TEST 2°’ PULSES 
‘DISABLE ‘TEST Z'* PULSES 
ZSAVE TARGET ADDRESS 
R2 NARROW ‘SAVE EA BITS FOR ERROR TYPEOUT 
152570 #81T12,aSFR TENABLE 1 BYTE TRANSFER 
001124 #3407, $GDDAT :LOAD EXPECTED DATA 
#B1T0.a#SRO KT-11 


177572 E 

“GET ACTUAL DATA 
177572 6, [DISABLE KT-11 
001126 SODDAT. ,SBDDAT COMPARE DATA 


:;BR_IF SAME 
35 ;LIST MODE DATA TRANSFER ERROR TO EXTENDED MEMORY 
$P. Hie ~~ COUNTER 
TST156 BR_IF FIRST PASS 
151676 #SW11,@SWR TEST INHIBIT INTER. 
TST156 F SET 


IF SE 
041742 #200,0UT ‘UPDATE BANK VALUE 

041742 $LSTBK ,OUT TEST IF DONE 
101253 1$ 7BR IF NOT 





CZNCCB 


NCV11 


CZ2NCCB.P11 


2178 
(3) 
(3) 
(2) 


MMM NNONPNPNNeNonas 
ee ere 
SRLRARRAVLS BO 


027262 
027264 


027272 
027300 


027474 


DIAGNOSTIC 


31-AUG-79 


000004 
012737 


023727 
10347 


11:21 


a 
MACY11 30G6(1063) 31-AUG-79 13:10 PAGE 65 
7156 VERIFY BIT 15 MATRIX ADDER INPUT 


001160 


003140 
172346 


177572 


001124 
177572 


177572 
001126 


MPR SARARARASAAAALAALALESASAALERALASA SALE LALA RAR RAR ARERR AAR SA RSS SS 


TEST 156 VERIFY BIT 15 MATRIX ADDER INPUT 


SERA REAR REEREEE ERE EEE REE EEREREEERREERE 


1ST156: SCOPE 
MOV 


0+56,R0 
#125252, (RO) 
#1400 ,a4SRO 
(RO) 
#1400,a4SRO 


;NOW GET READY TO DO THE TRANSFER 
MOV ACLRAL 


L,@SFR 


#TESTZ.@SFR 


#B1T12,aSFR 


#1 ,NARROW 
#460, $GDDAT 
#B1T0,a#SRO 
(RO) , $BDDAT 
#8170, a4SRO 
SGDDAT., , SBDDAT 


20 


3:D0 100 ITERATIONS 


s TEST IF >52kK IS aaa 
IF NO MORE MEMOR 


:LOAD KT=PAR REG #3 CBUFFER IS AT LOC 60000> 
;LOAD BUFFER POINTER 

[LOAD BAD TARGET LOC. IF EXT ADD FAILS 

; ENABLE MAINT. MODE KT-11 

;LOAD TARGET LOCATION DATA VALUE 

‘DISABLE MAINT. MODE KT-11 


INIT THE NCV11 
[LOAD COMBINED arren ADDRESS 
sENABLE THE NCV11 


-@SFR ENABLE MAINT NCV11 MODE 


ENABLE THE NCV11 
sé E "TEST 2°" PULSES 
;DISABLE ‘TEST 2°* PULSES 


ENABLE 1 BYTE TRANSFER 


SAVE EA BITS ee? _— TYPEOUT 
LOAD EXPECTED DAT 

ENABLE KT~-11 

> SAVE + ¥<- DATA 


IF SAME 
‘BIT 15 INPUT TO MATRIX MODE ADDER FAILED 








N 7 
063) 31-AUG-79 13:10 PAGE 


CZNCCB NCV11 __ DIAGNOSTIC MACY11 30G(1 66 
CZNCCB.P11 =. 31-AUG=79 11:21 1157 VERIFY HIGH BYTE OPERATION OF THE ‘TEST x’’ SEQ 0091 
2213 LL RRRRARRR EERE ERE EERE ERR ERE RARER EERE ARERR REE ER 
(3) :*TEST 157 VERIFY HIGH BYTE OPERATION OF THE ‘‘TEST Xx"’ 
(3) SRR EEE AERA REE EERE RRR ERE 
(2) 027476 000004 TST157: SCOPE 
(1) 027500 012737 000040 001160 MOV #40, $TIMES ::D0 40 ITERATIONS 
2214 sTEST X = 1 
2215 ;OF FSET =100000 
2216 3ADM OUTPUT =127657 
2217 ; ET =100257 
2218 027506 012777 152242 MOV AMCLRALL ,@SFR CLEAR THE acy Se 
2219 027514 023727 036404 001140 CMP $LSTBK 41140 sTEST IF LEAST 20k 
2220 027522 1034 BLO TST160 at IF NOT 
2221 027524 012777 100000 152216 MOV #100000 , aOF F zSET BIT 15 OF OFFSET 
2222 027532 012777 152216 MOV #TSTDMA!TSTCON!BITS,aSFR SET TEST DMA, CONTROL AND TESTX 
2223 027540 012777 002036 152200 MOV #2036,aCSR ;ENABLE THE NCV17 
2224 027546 052777 1 152172 BIS #B1T0,aCSR ENABLE THE NCV11 
2225 027554 052777 000002 152174 BIS AMTESTZ.@SFR 7 ENABLE “TEST Z'* PULSES 
(1) 562 042777 152166 BIC MTESTZ,@SFR DISABLE ‘TEST 2°’ PULSES 
2226 027570 0050 100256 CLR @ABUF 0+20256 :CLEAR THE TARGET LOC. 
2227 027574 052777 0 152154 BIS #B1T12,aSFR ALLOW 1 DMA TRANSFER 
2228 027602 012737 100256 001122 MOV #BUF 0+20256, SBDADR LOAD EXPECTED ADDRESSES VALUE 
2 027610 012737 001124 MOV #400, $GDDAT ;LOAD EXPECTED VALUE READ 
2 027616 017737 151300 001126 MOV @SBDADR,$BDDAT READ ACTUAL DATA 
2231 027624 023737 001124 001126 CMP SGDDAT,SBDDAT ; COMPARE 
2232 027632 001401 BEQ TST160 :;BR_IF SAME 
2233 027634 104034 ERROR 34 ;MATRIX ADDER INPUT OF ADM15 AND TESTX L 


2234 :FAILED TO BE INHIBITED 


CZNCCB 


NCV11 


CZNCCB.P11 


31-AUG- 


DIAGNOSTIC 


000004 
012737 


023727 


79 11:21 


MACY11 


001160 


005140 
172346 


177572 
177572 


177572 
177572 
001126 


B 8 
30G(1063) 31-AUG-79 13:10 PAGE 67 
7160 VERIFY BIT 16 INPUT TO THE MATRIX MODE ADDER 


Sf RARER ARAERAREE EERE ERERERRERREEEERERRERERERAREEHERRERE 


:*TEST 160 


VERIFY BIT 16 INPUT TO THE MATRIX MODE ADDER 


WES AAASASAARAAAASLAAALESAAAAALARASA SASS SEL ASR RSE REAR ARERR RAR ASSES SS 


T$1T160: SCOPE 
MOV 


3;ADM OUTPUT 
s OFFSET 
; TARGET 


tmprensia’ 37 3;D0 100 ITERATIONS 


463527 
$LSTBK 45140 s TEST IF ENOUGH MEMORY >84K 
TST161 IF NOT 


#4635 ,@AKIPARS :LOAD k KT=PAR REG #3 <BUFFER IS AT LOC 60000> 


#BUF 0+26,RO ;LOAD BUFFER POINTER 
#125252, (RO) ;LOAD BAD TARGET LOC. 
#1400, a4SRO 7E E MAI MOD 

(RO) :PRESET THE TARGET LOCATION 
#1400, a#SRO ;DISABLE MAINT. MODE KT-11 


NOW GET nga TO DO THE TRANSFER 


ACLRALL, he INIT THE NCV11 


#10001 , @OF F [LOAD THE EXTENDED ADDRESS BITS 
PISTDMASTSTCON, asFR ENABLE MAINT NCV11 MODE 
#4036,aCSR ;LOAD MATRIX MODE AND ZB ENABLE 
#B1T0,aCSR TENABLE THE NCV11 

ATESTZ,@SFR sENABLE *'TEST 2°" PULSES 
AMTESTZ,@SFR ;DISABLE ‘TEST 2°’ PULSES 
#B1T12,aSFR ;ENABLE 1 BYTE TRANSFER 
#2,NARROW SAVE EA BITS FOR — TYPEOUT 
#400 ,SGDDAT ;LOAD EXPECTED DATA 


#8170, a4SRO TENABLE KT-11 

(RO) , $BDDAT SSAVE ACTUAL DATA 

#8170, a4SRO ‘DISABLE KT-11 

S$BDDAT : 

SGDDAT.$BDDAT COMPARE DATA 

TST161 :7BR IF SAME 

20 “BIT 16 INPUT TO MATRIX MODE ADDER FAILED 


SFQ 0092 


C 8 
CZNCCB NCV11 _ DIAGNOSTIC MACY11 30G(1063) 31-AUG-79 13:10 PAGE 68 
CZNCCB.P11 31-AUG-79 11:21 7161 DETERMINE IF DIFLIN IS TO BE RUN (F) 


ee RARER ERRRE EERE ERR EERE EERE EERE ERE E ERE EERE 
:STEST 161 DETERMINE IF DIFLIN IS TO BE RUN (F) 
BE REIEERIEIIISIOINEIISIIIOIIISIISIOIIIOIOISIOIIOIOIIIUIOISIOIIDIUIDIOISOIIOINIDIUIDIDIID INE It tot 
181161: SCOPE 
000001 001160 P ;;D0 1 ITERATION 
050022 RUND IF ;TEST IF DIFLIN IS TO BE RUN 
;;BR_ IF NOT TO BE RUN 


043546 JMP DIFLIN ; JUMP AND RUN DIFLIN 
.SBTTL END OF PASS ROUTINE 


ISIE OI SISO IISIDIOIISIIDIOISIOIIIIIOIIIIOIDIOIIOIUIOIOIIUISIOIISIIDIDIIOISIDIDIDIDIIDINIOIDISIOIDIDE 
;* INCREMENT THE PASS NUMBER (SPASS) 

7*INDICATE END-OF-PROGRAM AFTER 1 PASSES THRU THE PROGRAM 

:*TYPE “END PASS #XXXXX'' (WHERE XXXXX IS A DECIMAL NUMBER) 

;*IF THERES A MONITOR GO TO IT 

;*IF THERE ISN'T JUMP TO LOGIC 


SEOP: 


oR THE TEST NUMBER 
ERO THE NUMBER OF ITERATIONS 
$PASS S INCREMENT THE PASS NUMBER 
001202 #100000, $PASS :300N°T ALLOW A NEG. NUMBER 


(PC) + 
SEOPCT: .WORD 1 


$DOAGN :eYES 
(PC)+,a(PC)+ ;sRESTORE COUNTER 
SENDCT: .WORD 1 


, SENDMG TYPE “END PASS #"' 
SPASS ,~-(SP) ZISAVE SPASS FOR TYPEOUT 
:GO TYPE--DECIMAL ASCII WITH SIGN 
, SENULL :3 TYPE A NULL CHARACTER 
$GET42: a#42,RO 
$DOAGN 


SENDAD: JS PC, (RO) 


SDOAGN: 
a(PC)+ » :RETURN 
SRTINAD: LOGIC 
377 000 $ENULL: .BYTE -1,-1,0 3s ;NULL CHARACTER STRING 
042412 042116 $ENDMG: .ASCIZ <15><12>/END PASS #/ 
051501 020123 


ek ak a a hh a a a a a a ss a ff) 9 9 Ss SS UD 
ee Nee eee ee ee ee eee eee eee la ae ae ae ae ae ee ae ee ie oe ees a 8 
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CZNCCB NCV11 _ DIAGNOSTIC MACY11 30G(1063) 31-AUG-79 13:10 PAGE 69 
CZNCCB.P11 31-AUG-79 11:21 ERROR ASCII MESSAGES SEQ 0094 


2279 -SBTTL ERROR ASCII MESSAGES 


2280 
2281 030222 034 060 004466 EMI: -ASCIZ /M8026 NCV11 BUS ADDRESS TIMEOUT/ 
030230 sett 


6 

3 1 
5 020123 
5 052517 
0 


1 
5 
5 
1 
66 0001 
2282 030262 ret 004466 EM: -ASCIZ /M8026 COMMAND=-STATUS REGISTER ERROR/ 
5 
5 
5 
1 


30320 
2283 030326 0341 EM3: -ASCIZ /M8026 SPECIAL FUNCTION REGISTER ERROR/ 


000122 

2284 030374 034115 031060 004466 EM: -ASCIZ /M8026 WORD COUNT REGISTER ERROR/ 
2 
2285 030434 034115 031060 004466 EMS: -ASCIZ /M8026 BUS ADDRESS REGISTER ERROR/ 
000 
2286 030475 115 east 033062 EMé6: -ASCIZ /M8026 OFFSET REGISTER ERROR/ 
000 

2287 eee 115 030070 033062 €EM7: -ASCIZ /M8026 DUAL REGISTER SELECTION ERROR/ 


2288 030575 115 Sita 033062 EM10: .ASCIZ /M8026-M8036 LOW 16 BIT Z COUNT ERROR/ 


3064 
2289 030642 034115 031060 026466 §EM11: .ASCIZ /M8026-M8036 HIGH 16 BIT Z COUNT ERROR/ 


020066 044502 020124 


E 8 
CZNCCB NCV11 _ DIAGNOSTIC MACY11 30G(1063) 31-AUG-79 13:10 PAGE 69-1 
CZNCCB.P11 31-AUG-79 11:21 ERROR ASCII MESSAGES 


020132 047503 047125 
051105 7522 


EM12: eASCIZ /M8026 Z COUNT STATUS ERROR/ 


/M8026 Z COUNT INTERRUPT ERROR/ 


/M8036 JOYSTICK STATUS ERROR/ 


/M8036 JOYSTICK DATA ERROR/ 
040504 
051122 
033063 x oy DATA INCREMENT ERROR/ 
020101 
046505 
051105 
004466 ' /M8036 DATA DECREMENT ERROR/ 
042040 
042515 
051122 


/M8026-M80 36 MATRIX MODE ADDRESS MAKER DATA ERROR/ 


/M8026 LIST MODE ADDRESS MAKER DATA ERROR/ 


/M8026 LIST MODE TRANSFER BUS ADDRESS ERROR/ 





CZNCCB NCV11 
CZNCCB.P11 


2299 


2300 


2301 


2302 


2303 


2304 


2305 


2306 


2307 


031352 
031 


032022 


DIAGNOSTIC 
31-AUG=79 11:21 


020123 
122 


gt 


= 
we 
o-wu 


04 
02 


051105 


051122 


030070 
052101 
047515 


MACY11 . 


047522 


004466 
052517 
052101 


40 
051105 


EM23: 


EM24: 


EM25: 


EM26: 


EM27: 


EM30: 


EM31: 


EM32: 


EM33: 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


eASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


/™8026 


/M8026 


/M8026 


/M8026 


/M8026 


/M8026 


/M8026 


/M8026 


/M8026 


F 8 
G(1063) 31-AUG=79 13:10 PAGE 69-2 
RROR ASCII MESSAGES 


LIST MODE TRANSFER WORD COUNT ERROR/ 


LIST MODE TRANSFER OFFSET ERROR/ 


TIMEOUT STATUS ERROR/ 


TIMEOUT INTERRUPT ERROR/ 


SET ‘EVENT’ OR ''TIME’’ DATA ERROR/ 


CELL INCREMENT DATA ERROR/ 


CELL OVERFLOW STATUS ERROR/ 


CELL OVERFLOW INTERRUPT ERROR/ 


MATRIX MODE ADDRESS MUX ERROR/ 


SEQ 0096 


CZNCCB 


CZNCCB. 


2508 


2309 


2310 


2311 


2312 


2313 


2314 


NCV11 
1 


Pl) 


032467 
032474 


DIAGNOSTIC 
31-AUG-79 11:21 


RS 
gtx 

ae 

OWO 


Sam 


S=LSNRAGH 


042104 
046440 
051122 


042504 
051516 
040504 


MACY11 306(106 
ERROR 


041520 
000122 


EM3<: 


EM35: 


EM36: 


EM37: 


EM41: 


DH1: 


G 8 
3) 31-AUG=79 13:10 PAGE 69-3 
ASCII MESSAGES 


-ASCIZ 


-ASCIZ 


-ASCIZ 


eASCIZ 


-ASCIZ 


eASCIZ 


eASCIZ 


eASCIZ 


/M8026 


/M8026 


/M8026 


/M8026 


/ JUMPER=M8026-M7952 


/M7952 


798217 


ZERRPC 


“"TESTX’’ FUNCTION ERROR/ 


DATA ERROR WHEN TRANSFERING TO EXTENDED MEMORY / 


LIST MODE TRANSFER STATUS ERROR/ 


LIST MODE TRANSFER DATA ERROR/ 


“EVENT'' OR ''TIME'’ MARK ERROR/ 


CLOCK BUS ADDRESS TIMEOUT/ 


INCORRECT INTERRUPT LEVEL/ 


ADDR/ 


SEQ 0097 


CZNCCB 


NCV11 


C2NCCB.P11 


2317 


2318 


2319 


032502 
0 


DIAGNOSTIC 
31-AUG-79 11:21 


=_—Vi 


88888 
ond aed od eed ed 
ant ao ah al on 
hR—ny— nr 
AXRAAXAOW 


RNIN 


NANWUIONM 


MACY?1 306(106 
ERROR 


DH2: 
DH3: ASCIZ 
DH4: -ASCIZ 
OUTRNG: .BYTE 
-ASCII 
ASCII 
OUTCHN: .BYTE 
EVEN 
DT1: . WORD 
DT2: . WORD 
DT3: . WORD 
DT4: . WORD 
DTS: . WORD 
DFO: . WORD 


4 8 
3) 31-AUG-79 13:10 PAGE 69-4 
ASCII MESSAGES 


-ASCIZ /ERRPC ADDR GOOD BAD/ 


7ERRPC ADDR GOOD BAD BADADR/ 


7ZERRPC ADDR GOOD BAD FA ADR BADADR/ 


15,12,7 
/NO *'2'' PULSES OR / 


/ INPUT VOLTAGE OUT OF RANGE ON CHANNEL 4/ 


60,15,12,7,0 


SERRPC , $BASE , 0 
SERRPC , $BASE , $GDDAT , SBDDAT , 0 
SERRPC , S$BASE , $GDDAT , SBDDAT , S$BDADR ,0 


$ERRPC , $BASE , SGDDAT , SBDDAT , NARROW, SBDADR ,0 


ne 


SEQ 0098 
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CZNCCB.P11 31=AUG=79 11:21 TTY INPUT ROUTINE SEQ 0099 
a .SBTITL TTY INPUT ROUTINE 
( 
(2) FF AAAAAAAAAAAAAAAAAAAAARAARARAARAARARERRRERRARERRAERARARERRARARERS 
i -ENABL LSB 
(2) fF RAAAAAAARARAARARRAAAARARARARARAAKRARAAARARARRRRAARRARRARARRARRAHH 
(1) > *SOFTWARE SWITCH REGISTER CHANGE ROUTINE. 
(1) : *ROUT INE IS ENTERED FROM THE TRAP HANDLER, 
(1) + *SERVICE THE TEST FOR CHANGE IN SOFTWARE gulteH REGISTER TRAP CALL 
(1) * # WHEN OPERATING IN TTY FLAG MODE. 
(1) 022737 000176 001140 $CKSWR: CMP ASWREG, SWR #i1S THE SOFT=SWR SELECTED? 
(1) 033014 001074 BNE 15$ ‘i CH IF NO 
(1) 033016 105777 146122 TSTB asTKS 3 2CHAR THERE ? 
(1) 033022 100071 BPL 15$ soiF - DON'T WAIT AROUND 
(1) 033024 117746 146116 MOVB a$TKB,-(SP) 3;SAVE THE CHAR 
(1) 033030 042716 177600 BIC #*(177, (SP) +s STRIP-OFF THE ASCII 
(1) 033034 022726 000007 CMP #7, (SP)+ 31S IT A CONTROL G? 
(1) 033040 001062 BNE 15$ + NO, RETURN TO USER 
(1) 033042 123727 001134 000001 CMPB $AUTOB,41 ; ARE WE RUNNING IN AUTO-MODE ? 
A 033050 001456 BEQ 15$ 7 BRANCH IF YES 
(1) 033052 104401 033533 TYPE »SCNTLG 72ECHO THE CONTROL-G (“*G) 
(1) 033056 104401 033540 $GTSWR: TYPE , SMSWR 32 TYPE CURRENT CONTENTS 
(2) 033062 013746 000176 MOV SWREG, -(SP) 37 SAVE SWREG FOR TYPEOUT 
(2) 033066 104402 TYPOC ::GO TYPE--OCTAL ASCII(ALL DIGITS) 
(1) 033070 104401 033551 TYPE , SMNEW PROMPT FOR NEW SWR 
(1) 033074 005046 19$: CLR -(SP) ;:CLEAR COUNTER 
(1) 033076 005046 CLR -(SP) 72 THE NEW SWR 
(1) 033100 105777 146040 7$: TSTB as TKS 77 CHAR THERE? 
oat 033104 100375 BPL 7$ sz 1Ff NOT TRY AGAIN 
(1) 033106 117746 146034 MOVB @a$TKB,-(SP) ;;PICK UP CHAR 
3; 033112 042716 177600 BIC #°C177, (SP) + >MAKE IT 7-BIT ASCII 
3 
( 
(1) 033116 021627 000025 9$: CMP (SP) 425 :I1S IT A CONTROL-U? 
(1) 033122 001005 BNE 10$ :IBRANCH IF NOT 
(1) 033124 104401 033526 TYPE ~SCNTLU sYES, ECHO CONTROL-U (“*U) 
(1) 033130 062706 000006 20$: ADD #6,SP : IGNORE PREVIOUS INPUT 
of 033134 000757 BR 19$ SILET! S TRY IT AGAIN 
(1) 
(1) 3136 021627 000015 10$: CMP (SP) 415 ::1S IT A <CR>? 
(1) 033142 001022 BNE 16$ ; ;BRANCH IF NO 
(1) 033144 005766 000004 TST 4(SP) 77 YES, IS IT THE FIRST CHAR? 
(1) 033150 001403 BEQ 11$ 38 CH IF YES 
(1) 033152 016677 000002 145760 MOV 2(SP) ,aSwWR 7 SAVE NEW SWR 
(1) 033160 062706 11$: ADD #6,SP : CLEAR UP STACK 
(1) 033164 104401 001171 14$: TYPE ,SCRLF et <CR> AND < 
(1) 033170 123727 001135 000001 CMPB $SINTAG,A1 RE-ENABLE TTY _ INTERRUPTS? 
(1) 033176 001003 BNE 15$ + BRANCH IF NOT 
(1) 033200 012777 000100 145736 MOV #100, a$TKS : TREENABLE TTY KBD INTERRUPTS 
(1) 033206 000002 15$: RTI 7 ;RETURN 
(1) 033210 004737 034606 16$: JSR PC, $TYPEC 77ECHO CHAR 
(1) 033214 021627 000060 CMP (SP) ,460 >: CHAR < 0? 
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CZNCCB.P11 31-AuG-79 11:21 TTY INPUT ROUTINE SEQ 0100 
(1) 033220 002420 BLT 18$ : BRANCH IF YES 
(1) 033222 021627 000067 CMP (SP) ,467 i3CHAR > 7? 
(1) 033226 003015 BGT 18$ :BRANCH IF YES 
(1) 033230 042726 000060 BIC #60, (SP) + +STRIP=OFF ASCII 
(1) 033234 005766 000002 TST 2(SP) *:1S THIS THE FIRST CHAR 
(1) 033240 001403 BEQ 17$ + BRANCH IF YES 
(1) 033242 006316 ASL (SP) *:NO, SHIFT PRESENT 
(1) 033244 006316 ASL (SP) >: CHAR OVER TO MAKE 
(1) 033246 006316 ASL (SP) :: ROOM FOR NEW ONE. 
(1) 033250 005266 000002 17$: INC 2(SP) ::KEEP COUNT OF CHAR 
(1) 033254 056616 177776 BIS =2(SP), (SP) ::SET IN NEW CHAR 
(1) 033260 000707 BR 7$ ::GET THE NEXT ONE 
(1) 033262 104401 001170 18$: TYPE ,$QUES *: TYPE 2<CR><LF> 
(1) 033266 000720 20$ +: SIMULATE CONTROL-U 
(1) .DSABL LSB 
if 
(2) FF ERAARARRRAAERRERAERERAEREKAERREKERRRERAERERERRRRERAERAERERERARAKRRERARRH 
C :STHIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 
7*CALL: 
(1) te RDCHR zz INPUT A SINGLE CHARACTER FROM THE TTY 
(1) y* RETURN HERE >: CHARACTER IS ON THE STACK 
CD) :8 ::WITH PARITY BIT STRIPPED OFF 
(1) 
(1) 033270 011646 $RDCHR: MOV (SP) ,-(SP) zzPUSH DOWN THE PC 
(1) 033272 016666 000004 000002 MOV 4(SP) ,2(SP) : 3 SAVE THE PS 
(1) 033300 105777 145640 1$: TSTB = ASTKS ‘WAIT FOR 
(1) 033304 100375 BPL 1$ :A CHARACTER 
(1) 033306 117766 145634 000004 MOVB  a$TKB,4(SP) 3 TREAD THE TTY 
(1) 033314 042766 177600 000004 BIC #°C(<177>,4(SP) ::GET RID OF JUNK IF ANY 
(1) 033322 026627 000004 000023 CMP 4(SP) ,#23 ::I1S IT A CONTROL-S? 
(1) 033330 001013 BNE 3$ : BRANCH IF NO 
(1) 033332 105777 145606 2$: TSTB = AS TKS ::WAIT FOR A CHARACTER 
(1) 033336 100375 BPL 2$ ::LOOP UNTIL ITS THERE 
(1) 033340 117746 145602 MOVB  a$TKB,-(SP) :GET CHARACTER 
(1) 033344 042716 177600 BIC #°(177, (SP) «MAKE IT 7-BIT ASCII 
(1) 033350 022627 000021 CMP (SP)+,4#21 ::1S IT A CONTROL-Q? 
(1) 033354 001366 BNE 2$ :21F NOT DISCARD IT 
(1) 033356 000750 BR 1$ i: YES, RESUME 
(1) 033360 026627 000004 000140 38: CMP 4(SP) ,4140 :1S IT UPPER CASE? 
(1) 033366 002407 BLT 4$ :ZBRANCH IF YES 
(1) 033370 026627 000004 000175 CMP 4(SP) 4175 71S IT A SPECIAL CHAR? 
(1) 033376 003003 BGT 4$ 3 BRANCH IF YES 
(1) 033400 042766 000040 000004 BIC #60,4(SP) MAKE IT UPPER CASE 
(1) 033406 000002 4$: RTI +:GO BACK TO USER 
(2) CLEARER ERE EERE REE REE REE EERE EREEEREERERERER EERE EKER 
Cv : THIS ROUTINE WILL INPUT A STRING FROM THE TTY 
>*CALL: 
(1) * RDLIN zr INPUT A STRING FROM THE TTY 
(1) :* RETURN HERE SS ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 
Hh :* +: TERMINATOR WILL BE A BYTE OF ALL O'S 
(1) 0633410 010346 SRDLIN: MOV R3,-(SP) AVE R3 
(1) 033412 012703 033516 1$: MOV #STTYIN,R3 ee ADDRESS 
(1) 033416 022703 033526 2$: CMP A$TTYIN+8.,R3 ;:BUFFER FULL? 
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P11 31-AUG=79 11:21 INPUT ROUTINE SEQ 0101 
033422 101405 BLOS 4$ ;;BR IF YES 
033424 104410 RDCHR *:GO READ ONE CHARACTER FROM THE TTY 
033426 112613 MOVB (SP) +, (R3) *:GET CHARACTER 
033430 122713 000177 10$: CMPB ss #177, (R3) t:I1S IT A RUBOUT 
033434 001003 BNE 3$ ‘SKIP IF NOT 
033436 104401 001170 4$: TYPE $QUES : TYPE A '?° 
033442 000763 BR j 2: CLEAR THE BUFFER AND LOOP 
033444 111337 033574 3$: MOVB _ (R3),9$ ‘ECHO THE CHARACTER 
033450 104401 033514 TYPE . 
033454 122723 000015 CMPB ss #15, (R3) + :3CHECK FOR RETURN 
33460 001356 BNE 2$ [LOOP IF NOT RETURN 
033462 105063 177777 CLRB = 1 (R3) *:CLEAR RETURN (THE 15) 
033466 104401 001172 TYPE SLF :: TYPE A LINE FEED 
033472 012603 MOV (SP)+,R3 * SRESTORE R3 
033474 011646 MOV (SP) ,-(SP) ::ADJUST THE STACK AND PUT ADDRESS OF THE 
033476 016666 000004 000002 MOV 4(SP) ,2(SP) :: FIRST ASCII CHARACTER ON IT 
033504 012766 033516 000004 MOV ASTTYIN,4(SP) 
033512 000002 RTI +; RETURN 
033514 000 9$: .BYTE 0 {i STORAGE FOR ASCII CHAR. TO TYPE 
033515 000 “BYTE 0 > TERMINA 
033516 000010 $TTYIN: .BLKB 8. ; :RESERVE "3. BYTES FOR TTY INPUT 
033526 052536 005015 000 $CNTLU: .ASCIZ /*U/<15><12>  ? = CONTROL ‘U"' 


033533 136 006507 000012 S$CNTLG: .ASCIZ /*G/<15><12> ‘CONTROL = 
033540 005015 ee 020122 $MSWR: .ASCIZ <15><12>/SWR = / 


033551 040 047040 053505 SMNEW: .ASCIZ / NEW = 
033556 036440 000040 
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READ AN OCTAL NUMBER FROM THE TTY 


-SBTTL READ AN OCTAL NUMBER FROM THE TTY 


FLERE RAAARARREARRRAEERRKKERERERRREERERERRREREEEREEREREREERRRE RH 


3*THIS ROUTINE WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND 


> *CHANGE IT TO BINARY. 
7*CALL: 


RDOCT 
RETURN HERE 


(SP) ,=(SP) 
4(SP) ,2(SP) 
RO,-(SP) 
R1,-(SP) 
R2,-(SP) 


(SP)+,RO 
R1 


R2 
(RO) +,-(SP) 
3$ 


R2 

#*C7, (SP) 
(SP)+,R1 
2s 


(SP) + 
R1,12(SP) 
R2,$HIOCT 
(SP)+,R2 
(SP)+,R1 
(SP) +,RO 


RTI 
S$HIOCT: .WORD 0 


2 ¢READ AN OCTAL NUMBER 
OW ORDER BITS ARE ON TOP OF THE STACK 
S:HIGH ORDER BITS ARE IN $HIOCT 
rE SPACE FOR THE 
T_ NUMBER 


7ZPUSH RO ON STACK 


; CIZ LINE 
“GET ADDRESS OF 1ST CHARACTER 
SICLEAR DATA WORD 


:zPICKUP THIS CHARACTER 
sc1IF ZERO GET OUT 


734 
328 


sSTRIP THE ASCII JUNK 
3zADD_IN THIS DIGIT 


; sLOOP 
7:CLEAN TERMINATOR FROM STACK 
72SAVE THE RESULT 


: POP STACK INTO R2 
POP STACK INTO R1 
: :POP STACK INTO RO 


RETURN 
SZHIGH ORDER BITS GO HERE 


SEQ 0102 
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012603 
012602 
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020200 
000020 


000055 
034100 
000040 


034070 


000001 
000060 


000010 


177777 


MACY11 gy 


000001 


177777 


177776 
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VERT BINARY TO DECIMAL AND TYPE ROUTINE 
-SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


FERRARA ARERAAEARAREERARERAERARRRRERARAREEERRREREREERRRREREERH 


TRTHIS ROUTINE IS USED TO CHANGE A 16-B1T BINARY NUMBER TO A 5-DIGIT 
>*SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 


> *NUMBER IS POS 


ITIVE OR 


NEGATIVE A SPACE OR A 


MINUS SIGN WILL BE TYPED 


;*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
a," WITH SPACES. 


*CALL: 


-* 
° 


$TYPDS: 


1$: 


7$: 


8$: 


9$: 


MOV 
TYPDS 


NUM , = (SP) 
5 ib 


R5 * -(SP) 
#20200, -(SP) 
20(SP) .R5 
_s 


R5 
#'=,1(SP) 
RO 


#SDBLK ,R3 
#* ,(R3)4 


R 
$DTBL (RO) .R1 
R1,R5 


e 


R2 

3$ 
R1,R5 
R2 

5$ 
(SP) 
7$ 
(SP) 


6$ 
1(SP) ,-1(R3) 
#'0, 


6 

(SP) + 

-1(SP) ,-2(R3) 
(R3) 

(SP)+,R5 


(SP)+,R3 
(SP)+,R2 


3;PUT THE BINARY NUMBER ON THE STACK 
3:GO TO THE ROUTINE 


;ZzPUSH RO ON STACK 
:7PUSH R1 ON STACK 
77PUSH R2 ON STACK 
7zPUSH R3 ON STACK 
: ;PUSH RS ON STACK 
SET BLANK SWITCH AND SIGN 
T:GET THE INPUT NUMBER 


$3 S POS. 

7 =MAKE THE BINARY NUMBER POS. 

7 sMAKE THE ASCII NUMBER NEG. 

::ZERO THE CONSTANTS INDEX 

7-SETUP THE OUTPUT POINTER 

33SET THE FIRST CHARACTER TO A BLANK 
7:CLEAR THE BCD NUMBER 


te THE CONSTANT 
: FORM THIS BCD DIGIT 


; IF DONE 
 PINCREASE THE BCD DIGIT BY 1 


3zADD BACK THE CONSTANT 

CHECK IF BCD DIGIT=0 
STFALL THROUGH IF 0 
scstath sa LEADING 0'S? 


72BR IF NO 

77 YES--SET THE SIGN 

72MAKE THE BCD DIGIT ASCII 

_— IT A SPACE IF NOT ALREADY A DIG 

THIS CHARACTER IN THE OUTPUT BUF 

ST INCREMENT ING 

3 CHECK THE TABLE INDEX 

2360 se THE sae DIGIT 


IT 
FER 


; SCII 
:2MAS THE LSD THE FIRST NON-ZERO? 
:sYES=~SET jin ny FOR TYPING 


3:POP STACK INTO R3 
::POP STACK INTO R2 


SEQ 0103 
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CZNCCB.P11 31-AUG-79 11:21 T BINARY TO DECIMAL AND TYPE ROUTINE SEQ 0104 

(3) 034046 012601 MOV (SP)+,R1 : :POP STACK INTO R1 

(3) 034050 012600 MOV (SP) +,RO =POP STACK INTO RO 

(1) 034052 104401 034100 TYPE $DBLK “NOW TYPE THE NUMBER 

(1) 034056 016666 000002 000004 MOV 3(SP) ,4(SP) : TADJUST THE STACK 

(1) 034064 012616 MOV (SP)+, (SP) 

(1) 034066 000002 RTI y:RETURN TO USER 

(1) 034070 023420 $DTBL: 10000. 

(1) 034072 001750 1000. 

(1) 034074 000144 

(1) 034076 2 . 

(1) 100 $DBLK: .BLKW 4 
2340 .SBTTL SCOPE HANDLER ROUTINE 

(2) FARA EARARRERREEERREREEEEEERRAERRKEEEREEKKEEERERRRERKEEE 

(1) THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 

(1) :*AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG. (DISPLAY<7:0>) 
(1) >*AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08> 

(1) ; * THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 

(1) *SW14= LOOP ON TEST 

(1) + *SW11= 1 INHIBIT ITERATIONS 

(1) + *SWO9=1 LOOP ON ERR 

(1) *SWO8=1 LOOP ON TEST IN SWR<7:0> 

(1) 3*CALL 

(1 i* SCOPE ::SCO;€=10T 

(1) 034110 $SCOPE: 

(1) 034110 104407 CKSWR z:TEST FOR CHANGE IN SOFT-SWR 

(2) 034112 004737 045676 JSR PC,CTRLCG sTEST FOR CTRL C ORG 

(1) 034116 032777 040000 145014 1S: BIT #B1T14,aSwR ;:LOOP ON PRESENT TEST? 

(1) 034124 001114 BNE SOVER SYES IF SW14=1 

(1) :#HAAASTART OF CODE FOR THE XOR TESTERMMMMM 

(1) 034126 000416 $XTSTR: BR 6$ iF RUNNING ON THE ‘‘XOR'' TESTER CHANGE 
(1) eee INSTRUCTION TO A ‘ (NOP=240) 
(1) 034130 013746 000004 MOV @#ERRVEC ,- (SP) SAVE THE CONTENTS OF THE ERROR VECTOR 
(1) 034134 012737 034154 000004 MOV #5$, A#ERRVEC ISET FOR TIMEOUT 

(1) 034142 005737 177060 TST a#177060 :TIME OUT ON YOR? 

(1) 146 012637 000004 i0V (SP) +, @ERRVEC ; ;RESTORE THE ERROR VECTOR 

(1) 034152 000463 BR $SVLAD :GO TO THE NEXT TEST 

(1) 034154 022626 5$: CMP (SP)+, (SP) + CLEAR THE STACK AFTER A TIME OUT 

(1) 034156 012637 000004 MOV (SP)+,@WERRVEC ;;RESTORE THE ERROR VECTOR 

(1) 034162 000423 BR 7$ LOOP ON THE PRESENT TEST 

(1) 034164 6$:;MMAAAEND OF CODE FOR THE XOR™ TESTERMMMAM 

(1) 034164 032777 000400 144746 BIT #81T08,aSWR ::LOOP ON SPEC. TEST? 

(1) 034172 001404 BEQ 2 ::BR IF 

(1) 034174 127737 144740 001102 CMPB  =—s- @SWR, STSTNM *:0N THE RIGHT TEST? SWR<7:0> 

(1) 034202 001465 BEQ SOVER ::BR IF YES 

(1) 034204 105737 001103 2s: TSTB  $ERFLG *:HAS AN ERROR OCCURRED? 

(1) 034210 001421 BEQ 3$ ::BR IF NO 

(1) 034212 123737 001115 001103 CMPB = SERMAX,SERFLG ©; ;MAX. ERRORS FOR THIS TEST OCCURRED? 
(1) 034220 101015 BHI [BR IF NO 

(1) 034222 032777 001000 144710 BIT #B1T09, aSwWR ::L00P ON ERROR? 

(1) 034230 001404 BEQ 4$ BR IF NO 

(1) 034232 013737 001110 001106 7S: MOV SLPERR,$LPADR ::SET LOOP ADDRESS TO LAST SCOPE 

(1) 034240 000446 BR SOVER 

(1) 034242 105037 001103 4$: CLRB = $ERFLG ZZERO THE ERROR FLAG 

(1) 034246 005037 001160 CLR STIMES * CLEAR THE NUMBER OF ITERATIONS TO MAKE 
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001157 


000602 
000001 


000100 


034444 
035446 
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B 
MACY11 gh ee 31-AUG=79 13:10 PAGE 72-2 


144656 


001214 
001215 


601215 


— HANDLER ROUTINE SEQ 0105 
BR 1$ sESCAPE TO THE NEXT TEST 
3$: BIT #B1T11,aSWR ;EINAIBIT ITERATIONS? 
BNE 1$ :BR IF YES 
TST $PASS iF FIRST PASS OF PROGRAM 
BEQ 1$ INHIBIT ITERATIONS 
INC $SICNT INCREMENT ITERATION COUNT 
CMP $TIMES,SICNT 3 CHECK THE NUMBER OF Seu MADE 
BGE SOVER ;BR_ IF MORE ITERATION REQUIRE 
1$: MOV #1,$1CNT i :REINITIALIZE THE ITERATION COUNTER 
MOV SMXCNT ,STIMES 23 SET NUMBER ITERATIONS TO DO 
$SVLAD: INCB STSTNM ; COUNT TEST NUMBERS 


MOVB STSTNM,STESTN :;SET TEST NUMBER 1h APT MAILBOX 
MOV (SP) , SLPADR ::SAVE SCOPE LOOP ADDRESS 


MOV (SP) ,SLPERR : SAVE ERROR LOOP ADDRESS 
CLR SESCAPE 23 CLEAR THE ESCAPE FROM ERROR ADDRESS 
MOVB #1, SERMAX ONLY ALLOW ONE(1) ERROR ON NEXT TEST 
SOVER: MOV STSTNM,@DISPLAY :;DISPLAY TEST NUMBER 
MOV SLPADR, (SP) ; FUDGE RETURN ADDRESS 
RTI 2 sFIXES PS 
$MXCNT: 2000. 7 3MAX. NUMBER OF ITERATIONS 


-SBTTL TYPE ROUTINE 


REI IOISIOISIIIIIOISIIIDIIIDIDIOISIOIDIOIUIUIOIOIDIDOIIOIISIOIIOIMOIIOI SIDI IOISIUISIOI ISIS 
* #ROUT INE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE. 
;*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 


*NOTE1: SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
> *NOTE2: $FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 

3 *NOTE3: $FILLC CONTAINS THE CHARACTER TO FILL AFTER. 

-* 


*CALL: 
1) vee TRAP INSTRUCTION 


“oR -ME SADR i zMESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
te 
; TYPE 
. ME SADR 
~- 
$TYPE: TSTB $STPFLG 2iJS —_ A TERMINAL? 
BPL 1$ IF 
HAL T HALT HERE IF NO TERMINAL 
BR 3$ AVE 
1$: MOV RO, me og T:SAVE RO 
MOV @2(SP) ,RO 73GET ADDRESS OF ASCIZ STRING 
CMPB PAPTENY SENV : «RUNNING IN APT 
BNE 62$ 7NO,GO CHECK FOR APT CONSOLE 
BITB #APTSPOOL .SENVM :: SPOOL ne me TO APT 
BEQ 62$ 33NO,GO CHECK FOR CONSOLE 
MOV RO,61$ ::SETUP MESSAGE ADDRESS FOR APT 
JSR PC, SATY3 SPOOL MESSAGE TO APT 
61$: -WORD 0 3 :MESSAGE ADDRESS 
62$: BITB MAPTCSUP,SENVM ;;APT CONSOLE SUPPRESSED 
BNE 6 73YES,SKIP TYPE OUT 
2$: MOVB (RO) +,-(SP) ;;PUSH CHARACTER TO BE TYPED ONTO STACK 
BNE 4$ 77BR IF IT ISN'T THE TERMINATOR 
TST (SP) + 731F TERMINATOR POP IT OFF THE STACK 
60$: MOV (SP)+,RO RESTORE RO 
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0 
013746 


105366 
002770 


004737 
105337 
000770 


112716 
004737 


000002 
000011 
000200 


034652 
034606 
001156 
001154 
000001 


034606 
034652 


000040 
034606 
000007 


144336 


000002 
000015 


034652 
000012 


MACY11 3061063) 


034652 


144330 
000002 


000002 


31-AUG-79 13:10 
TYPE ROUTINE 
3$: ADD #2, (SP) 
RTI 
4$: CMPB MHT , (SP) 
BEQ 8 
CMPB ACRLF , (SP) 
BNE 5 
TST (SP) + 
TYPE 
SCRLF 
CLRB SCHARCNT 
BR 2$ 
5$: JSR PC ,$TYPEC 
6$: CMPB SFILLC,(SP)+ 
BNE 2s 
MOV $NULL .- (SP) 
7$: DECB 1(SP) 
BLT 6$ 
JSR PC,$TYPEC 
DECB SCHARCNT 
7$ 
;HORIZONTAL TAB PROCESSOR 
8$: MOVB #’ ,(SP) 
9$: JSR PC,$TYPEC 
BITB #7, $CHARCNT 
BNE oF 
TST P)+ 
BR $ 
$TYPEC: TSTB a$TPS 
BPL STYPEC 
MOVB 2(SP) ,a$TPB 
CMPB #CR,2(SP) 
BNE 1$ 
CLRB SCHARCNT 
STYPEX 
1$: CMPB ALF ,2(SP) 
BEQ STYPEX 
INCB (PC)+ 
$SCHARCNT:.WORD 0 
$TYPEX: RTS PC 


C ° 
PAGE 72-3 


SEQ 0106 
¢ sADJUST RETURN PC 
; ;RETURN 
BRANCH IF <HT> 
; ;BRANCH IF NOT <CRLF> 


:zPOP <CR><LF> EQUIV 
3: TYPE A CR AND LF 


aceh ene CHARACTER COUNT 

;;GET NEXT CHARACTER 

2260 TYPE THIS CHARACTER 

IT TIME FOR FILLER CHARS.? 
GO GET NEXT CHAR 

OF 4 eae “NEEDED 


NO 
& 
THE NULL 

S A NULL NEED TO BE TYPED? 

IF NO--GO POP THE NULL OFF OF STACK 
TYPE A NULL 

NOT COUNT AS A COUNT 


;ZREPLACE TAB WITH SPACE 
7: TYPE A SPACE 
; ;BRANCH IF NOT AT 
3 TAB STOP 
; POP SPACE OFF STACK 
zGET NEXT CHARACTER 
WAIT UNTIL PRINTER IS READY 


;;LOAD CHAR TO BE TYPED INTO DATA REG. 
21S CHARACTER A CARRIAGE RETURN? 


BRANCH IF NO 
: :YES=~CLEAR CHARACTER COUNT 


Z:1S CHARACTER A LINE FEED? 
; BRANCH IF 5 

;;COUNT THE C CTER 

3; CHARACTER COUNT « STORAGE 


D9 
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2343 -SBTTL BINARY TO OCTAL (ASCII) AND TYPE 


DARE IOI SIISIISIOIIEIIOIIEIIIOIIOIIIIIOIIDUINONOIIUIUU Ett tn ttt 

:*THIS ROUTINE IS USED TO CHANGE A 16-81T BINARY NUMBER TO A 6-DIGIT 

;*OCTAL (ASCII) NUMBER AND TYPE IT. 

g sSTYPOS=--ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 
Lt: 


NUM, ~ (SP) : NUMBER TO BE TYPED 
N :INST-TO 6 FOR NUMBER OF DIGITS TO TYPE 
LIM=ET OR 0.” 


M 
321=TYPE LEADING ZEROS 
3 0=SUPPRESS LEADING ZEROS 


** 

:*$TYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAS’ 
;*$TYPOS OR $TYPOC 

:*CALL: 

;* MOV NUM , = (SP) ; ;NUMBER TO BE TYPED 

: TYPON 3:CALL FOR TYPEOUT 


-* 
Oy tasers HERE FOR TYPEOUT OF A 16 BIT NUMBER 
; Lil ¢ 


NUM ,~(SP) ; NUMBER TO BE TYPED 
:-CALL FOR TYPEOUT 


000000 S: a(SP) ,-(SP) 7sPICKUP THE MODE 

000001 035101 1(SP) ,S$OF ILL ;sLOAD ZERO FILL SWITCH 
035103 (SP)+,$OMODE+1 ;;NUMBER OF DIGITS TO TYPE 
000002 3 TA a ; ADJUST RETURN ADDRESS 


BR 
000001 035101 : #1, SOF ILL :-SET THE ZERO FILL SWITCH 
035103 ei3er FOR SIX(6) DIGITS 
000005 035100 : 7 SET ea ITERATION COUNT 


~~ 
— 
~— 


oe 5 
035103 a 3;GET THE NUMBER OF DIGITS TO TYPE 


000006 Sh yee IT FOR MAX. ALLOWED 
035102 SAVE IT FOR USE 
035101 SOF ILL.R4 ZIGET THE ZERO FILL SWITCH 
000012 12(SP) ,R5 : ¢PICKUP THE INPUT NUMBER 
R3 ;CLEAR THE OUTPUT WORD 
; ROTATE MSB INTO *'C’’ 


DO MSB 
73FORM THIS DIGIT 


: R 3;GET LSB OF THIS DIGIT 
035102 23 TYPE as DIGIT? 


BP 7$ 
177770 #177770,R3 2667 RID OF JUNK 
BN 4$ es FOR 0 
R4 SUPPRESS THIS 0? 
035016 5$ ::BR IF YES 


2) 
1) 
WD 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
1) 
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4$: 4 ; DON'T SUPPRESS ANYMORE 0'S 
: sMAKE THIS DIGIT ASCII 
5$: . s MAKE ASCII Sime ALREADY 


I 
8 :3¢0 TYPE THIS DIGIT 
7$: : ¢ COUNT BY 1 
2$ ; BR 4 MORE TO DO 
F DONE 


;BR 
: INSURE LAST DIGIT ISN'T A BLANK 
:GO > ay Fa DIGIT 


~~ 
— 
~— 


$3 ORE R3 
T:SET THE STACK FOR RETURNING 


7 RETURN 
8$: F ;z STORAGE FOR ASCII DIGIT 
4 3:7; TERMINATOR FOR TYPE ROUTINE 
SOCNT: YTE ::O0CTAL DIGIT COUNTER 
SOF ILL: 77ZERO FILL SWITCH 
035102 SOMODE: . 7 NUMBER OF DIGITS TO TYPE 


-SBTTL ERROR HANDLER ROUTINE 


DIARIO OES SIIIIUIIOIDIIIOIDIOIUIDIIOIIOIOIUIUIDIUOIDIUIOIIIDIIOIIUIDIDIDIIOIDIDIDINIIIDIIEE Dt 
;*THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
;*SAVE THE ERROR ITEM — AND THE ADDRESS OF THE ERROR CALL 
:*AND GO TO SERRTYP ON ERROR 

: * THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 

*SW15= : HALT ON ERROR 

eSW13=1 INHIBIT ERROR TYPEOUTS 

>*SW10=1 BELL ON ERROR 
:*SWO9=1 LOOP ON ERROR 


N 3;ERROR=EMT AND N=ERROR ITEM NUMBER 


FOE EE EBB EB EBL OELEOLEOQ_EOQOLOLOLI 
— os es os es 2 = Ss 2 2 SS ss SS SS SS SYS 


KE 


73 TEST FOR CHANGE IN SOFT~SWR 
SERFLG 2 éSET THE ERROR FLAG 
7$ ;DON'T LET THE FLAG GO TO ZERO 
$TSTNM,@DISPLAY ; DISPLAY TEST NUMBER AND ERROR FLAG 
+ lbecepemenes 2 3BELL SKIP. ROR? 


oorkt 3 FRING BELL 
ERTTL ;COUNT THE NUMBER OF ERRORS 
ae eknere * >:GET ADDRESS OF ERROR INSTRUCTION 


@SERRPC,SITEMB = ;;STRIP AND _, THE ERROR ITEM CODE 
#81713, aSwR SET 


20 ; EOUT al 
‘wee [GO TO USER ERROR ROUTINE 
4 é M#APTENV, SENV 3 RUNNING IN APT MODE 


00100 ::NO,SKIP APT ERROR REPORT 
035212 113737 $I1TEMB,21$ : SET ITEM NUMBER AS ERROR NUMBER 


) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
4 
5 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 
) 


OO FR RFR FR FR FR RRR FRR RBA AEA AAA AAA 
ok ak ak ak a at a a ot a a th th ot oo sf 
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CZNCCB.P1 31-AUG-79 11:21 ERROR HANDLER ROUTINE SEQ 0109 
(1) 035220 004737 035456 JSR PC,SATY4 ; REPORT FATAL ERROR TO APT 
(1) 035224 000 21$: -BYTE 0 
(1) 035225 000 BYTE Q 
(1) 035226 000777 228: BR ees ; APT ERROR LOOP 
(1) 035230 005777 143704 2$: TST aSWR ; HALT ON ERROR 
(1) 035234 100002 BPL 3$ 33SKIP IF CONTINUE 
(1) 035236 000000 HAL T ae RROR! 
(1) 035240 104407 CKSWR TEST FOR CHANGE IN SOFT-SWR 
(1) 035242 032777 001000 143670 3$: BIT #B1T09,aSWR S:LOOP ON ERROR SWITCH SET? 
(1) 035250 00 BEQ 4 ;7BR_IF NO 
(1) 035252 013716 001110 MOV $SLPERR, (SP) ;sFUDGE RETURN FOR LOOPING 
(1) 035256 005737 001162 4$: TST $SESCAPE : ¢ CHECK FOR AN ESCAPE ADDRESS 
(1) 035262 001402 BEQ 5$ IF NONE 
43 BteS%e 013716 001162 $$ MOV SESCAPE , (SP) ZIFUDGE RETURN ADDRESS FOR ESCAPE 
(1) 035270 022737 030166 000042 CMP AMSENDAD , 0442 3cACT=11 ital 
(1) 035276 001001 BNE 6$ ; ;BRANCH IF 
(1) 035300 000000 HALT se VES 
(1) 035302 6$: 
ASH 035302 000002 RTI 3 sRETURN 
aoc 14 -SBTTL ERROR MESSAGE TYPEOUT ROUTINE 
(2) 5 LRA AREER AEE EEEREAAREEAEARARERERKERREREAERAERERRERRERRRRE EH 
(1) ;*THIS ROUTINE USES THE ‘"ITEM CONTROL BYTE'’ ($ITEMB) TO DETERMINE WHICH 
(1) ;*ERROR IS TO BE REPORTED. IT THEN OBTAINS, FROM THE ‘ERROR TABLE’ (SERRTB), 
Sf ;*AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR. 
( 
(1) 035304 SERRTYP: 
(1) 035304 104401 001171 TYPE . SCRLF ; aw oe RETURN'' & "LINE FEED" 
(1) 035310 010046 MOV RO,-(SP) $3 SAV 
(1) 035312 005000 CLR RO PICKUP THE ITEM INDEX 
(1) 035314 153700 001114 BISB a4$1 TEMB RO 
(1) 035320 001004 BNE 1$ ;;1F ITEM NUMBER IS em JUST 
(1) TYPE THE PC OF THE ERR 
(2) 035322 013746 001116 MOV SERRPC ,~-(SP) :ISAVE SERRPC FOR TYPEQUT. 
(2) ERROR ADDRESS 
(2) 035326 104402 TYPOC [:GO TYPE=-OCTAL ASCII(ALL DIGITS) 
(1) 035330 000426 BR 6$ ::GET OUT 
(1) 035332 005300 1$: DEC RO ; ADJUST THE SO THAT IT WILL 
(1) 035334 006300 ASL RO 3 WORK FOR THE ERROR TABLE 
(1) 035336 006300 ASL RO 
(1) 035340 006300 ASL RO 
(1) 035342 062700 001256 ADD #$SERRTB,RO ORM TABLE POINTER 
(1) 035346 012037 035356 MOV (RO) +,2$ PICKUP “ERROR MESSAGE’* POINTER 
(1) 035352 001404 BEQ 3$ :SKIP TYPEOUT IF NC POINTER 
(1) 035354 104401 TYPE “TYPE THE “ERROR MESSAGE*’ 
(1) 035356 000000 2$: -WORD 0 3:3’ ERROR MESSAGE’* POINTER GOES HERE 
(1) 035360 104401 001171 TYPE -SCRLF 72''CARRIAGE RETURN’’ & "LINE FEED" 
(1) 035364 012037 035374 3$: MOV (RO) +,4$ ;;PICKUP ‘DATA HEADER’ POINTER 
(1) 035370 001404 BEQ 5$ at ot TYPEOUT IF 0 
(1) 035372 104401 TYPE 77 TYPE THE ‘DATA HEADER" 
(1) 035374 000000 4$: -WORD 0 "DATA HEADER'’ POINTER GOES HERE 
(1) 035376 104401 001171 TYPE -$CRLF “CARRIAGE RETURN’’ & ‘LINE FEED’’ 
(1) 035402 011000 5$: MOV (RO) ,RO 7:PICKUP "DATA TABLE*’ POINTER 
(1) 035404 0601004 BNE 7$ 3:GO TYPE THE DATA 
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C2NCCB.P11 31-AUG=79 11:21 ERROR MESSAGE TYPEOUT ROUTINE SEG 0110 
(1) 035406 012600 63: MOV (SP)+,RO : RESTORE RO 
(1) 035610 104401 001173 TYPE .SCRLF +: 'CARRIAGE RETURN'' & “LINE FEED" 
(1) 035414 000207 RTS PC +: RETURN 
(1) 035416 7$: 
(2) 035416 013046 MOV a(RO)+,=-(SP) ;sSAVE @(RO)+ FOR TYPEOUT 
(2) 035420 104402 TYPOC :GO TYPE=-OCTAL ASCII CALL DIGITS) 
(1) 035422 005710 TST (RO) 2318 THERE ANOTHER NUMBER 
(1) 035424 001770 BEQ 6$ IF NO 
(1) 035426 104401 035434 TYPE 8$ : i TYPE TWO(2) SPACES 
(1) 035432 000771 BR 7$ LOOP 
(1) 035634 0200460 000 R$: ASCIZ / / *HWOC2) SPACES 
(1) 035440 SEVEN 


ne 
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CZNCCB.P11 31=AUG=79 11:21 COMMUNICATIONS ROUTINE SEQ 0111 
2349 .SBTTL APT COMMUNICATIONS ROUTINE 
(2) 5p RRRAAARAAAARARARARAARARARARAARARRARRRARARARERARAHRAERAARARAARARRARE 
(1) 035440 112737 000001 035704 $ATY1: MOVB  4#1,$FFLG ::T0 REPORT FATAL ERROR 
(1) 035446 112737 000001 035702 $ATY3: MOVB  4#1,$MFLG *:TO TYPE A MESSAGE 
(1) 035454 000403 BR SATYC 
(1) 035456 112737 000001 035704 $ATY4: MOVB  #1,$FFLG ::T0 ONLY REPORT FATAL ERROR 
(1) 035464 SATYC 
(3) 5464 01 MOV RO,-(SP) ::PUSH RO ON STACK 
(3) 035466 010146 MOV R1,-(SP) +:PUSH R1 ON STACK 
(1) 035470 105737 035702 STB = SMFLG + SHOULD TYPE A MESSAGE? 
(1) 035474 001450 BEQ 5$ ‘:IF NOT: BR 
(1) 035476 122737 000001 001214 CMPB  —s MAP TENV, SENV : OPERATING UNDER APT? 
(1) 035504 001031 BNE $ NOT: 
(1) 035506 132737 000100 001215 BITB § #APTSPOOL,SENVM : : SHOULD SPOOL MESSAGES? 
(1) 035514 001425 BEQ 3$ BR 
(1) 035516 017600 MOV a4 (SP) ,RO SI GET NRE SSAGE ADDR. 
(1) 035522 766 000002 000004 ADD #2,4(SP) > BUMP RETURN ADDR. 
(1) 035530 005737 001174 1$: TST $MSGTYPE :iSEE IF "DONE W/ LAST XMISSION? 
(1) 035534 001375 BNE 1$ F NOT: WAIT 
(1) 035536 010037 001210 MOV RO, SMSGAD ::PUT ADDR IN MAILBOX 
(1) 035542 105720 23: TSTB —- (RO) + [FIND END OF MESSAGE 
(1) 035544 001376 BNE 2$ 
(1) 035546 163700 001210 SUB SMSGAD RO ::SUB START OF MESSAGE 
(1) 035552 200 ASR RO :iGET MESSAGE LNGTH IN WORDS 
(1) 035554 010037 001212 MOV RO, $MSGLGT T LENGTH IN MAILBOX 
oe 35560 012737 000004 001174 Mov #4, SMSGTYPE ef APT TO TAKE MSG. 
( 
(1) 035570 017637 035614 3$ MOV a4 (SP), 4s :;PUT MSG ADDR IN JSR LINKAGE 
(1) 035576 766 000002 000004 ADD #2,4(SP) RETURN ADDRESS 
(3) 035 013746 177776 MOV 177776,=(SP) PUSH 199776 ON STACK 
(1) 035610 737 034374 JSR PC, $TYPE S CALL TYPE MACRO 
(1) 035614 4$: .WORD 0 
(1) 035616 S$: 
(1) 035616 105737 035704 10$: TSTB ~—s_ SFFLG i: SHOULD REPORT FATAL ERROR? 
(1) 035622 001416 BEQ 12$ :: BR 
(1) 035624 005737 001214 TST SENV RUNNING UNDER APT? 
(1) 5630 001413 BEQ 12$ [IF NOT: BR 
(1) 035632 005737 001174 11$ TST $MSGTYPE ; FINISHED LAST MESSAGE? 
(1) 035636 001375 BNE 11$ NOT: WAIT 
(1) 035640 017637 091176 MOV a4(SP), SFATAL :GET ERROR # 
(1) 5646 766 000004 ADD #2,4(SP) =BUMP RETURN ADDR. 
(1) 035654 005237 001174 INC SMSGTYPE Z TELL APT TO TAKE ERROR 
(1) 035660 105037 035704 12$: CLRB = $FFLG *ZCLEAR FATAL FLAG 
(1) 5664 105037 035703 CLRB = SLFLG SCLEAR LOG FLAG 
(1) 035670 105037 035702 CLRB $MFLG >: CLEAR MESSAGE FLAG 
(3) 035674 012601 MOV (SP)+,R1 ::POP STACK INTO R1 
(3) 035676 012600 MOV (SP) +-RO : :POP STACK INTO RO 
(1) 5700 000207 RTS PC RE TURN 
(1) 035702 000 $MFLG: .BYTE 0 ; :MESSG. FLAG 
(1) 035703 000 $LFLG: .BYTE 0 LOG FLAG 
(1) 035704 000 $FFLG: .BYTE 0 <P ATAL FLAG 
(1) 035706 EVEN 
(1) 200 APTSIZE=200 
(1) 1 APTENV=001 
(1) 000100 APTSPOOL=100 
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000040 APTCSUP=040 
-SBTTL POWER DOWN AND UP ROUTINES 


DBRS UO IOIUIID IOI UO Rt Ents nnt ink ns eenns 
;POWER DOWN ROUTINE 
012737 036 : AMSILLUP,@APWRVEC ;;SET FOR FAST UP 
MO #340, QA4PWRVEC+2 ;;PRIO:7 
) 3 RO ON STACK 


@SWR ON STACK 
;;SAVE SP 
000024 #SPWRUP ,AAPWRVEC ;;SET UP VECTOR 
000000 
035756 BR a” ; HANG UP 


EERE E EERE R EERE ERE EEE EE Ee 
“ POWER UP ROUTINE 
035760 036046 $PWRUP: MOV MSILLUP,@#PWRVEC ;;SET FOR FAST DOWN 
MO $SAVR6, SP 3:GET SP 
036052 SSAVR6 ::WAIT LOOP FOR THE TTY 
036052 1$: tae :ZWAIT FOR THE INC 


gs WORD 
143130 (SP)+,aSWR 8 aSwR 
(SP)+,R5 zs R5 
(SP)+,R4 ss R4 
(SP)+,R3 + R3 
(SP)+,R2 : RZ 
(SP)+,R1 8 R1 
(SP) +, “RO 3 CK INTO RO 
#SPWRDN, aePWRVEC™ SET UP THE POWER DOWN VECTOR 
#340, @4PWRVEC +2 7 7PRIO:7 
“REPORT THE POWER FAILURE 
SPWRMG: .WOR $SPOWER 7zPOWER FAIL MESSAGE POINTER 


SILLUP: 32 THE POWER UP SEQUENCE WAS STARTED 
BR 72 3: BEFORE THE POWER DOWN WAS COMPLETE 
SSAVR6: 0 :zPUT THE SP HERE 
042527 $POWER: .ASCIZ <15><12>' POWER" 


EVEN 


So Ss ss WWW WWW 2 PS SN 9 PS S| WWW OS 
NN eee ee eee ee ae eee ae ae es oe Ss oe Se SS oe ae ae we we ee ae ae 
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CCB.P11 31-AUG=79 11:21 ROUTINE TO SIZE MEMORY SEQ 0113 
2352 .SBTTL ROUTINE TO SIZE MEMORY 

( 

(2) J LAA REE EAEARERERERERERRERERERERRER EERE ERE REREREAAREREE RE 

(1) 7*CALL: 

(1) i JSR PC, $SIZE 

(1) RETURN 

(1) : SSLSTAD WILL CONTAIN: 

(1) WITH KT11 OPTION -- LAST VIRTUAL ADDRESS OF THE LAST BANK 

(1) te WITHOUT KT11 OPTION -- LAST ABSOLUTE ADDRESS OF AVAILABLE MEMORY 

(1) ;*$LSTBK WILL CONTAIN THE LAST BANK AS A S 

(1) :*$KT11 1S THE MEMORY MANAGEMENT KEY 

(1) ; *B1T07 - + PONT USE MEMORY MANAGEMENT 

(1) T BE SETUP BEFORE THE CALL 

(1) :sB1T15 = me DON'T HAVE MEMORY MANAGEMENT OPTION 

C1) ; DETERMINED BY ROUTINE 

(1) 036064 010046 $SIZE: MOV RO,-(SP) 3s; SAVE RO ON THE STACK 

(1) 036066 010146 MOV R1,-(SP) : 7 SAVE R1 ON THE STACK 

(1) 036070 010246 MOV R2.=(SP) 2 ¢ SAVE R2 ON THE STACK 

(1) 036072 010346 MOV R3,-(SP) SAVE R3 ON THE STACK 

(1) 036074 013746 000004 MOV @¥ERRVEC, -(SP) +S SAVE PRESENT ERROR VECTOR PS & PC 

(1) 036100 013746 000006 ad @HERRVEC+2, -(SP) 

(1) 036104 010600 SP,RO i SAVE THE STACK POINTER 

(1) 2 2SET THE ERRVEC PS TO THE PRESENT P 

(2) 036106 104400 TRAP PUSH OLD PSW AND PC ON STACK 

(2) 036110 012637 000006 MOV (SP) +, @F#ERRVEC+ z ; SAVE THE PSW IN @4ERRVEC+2 

(1) 036114 012701 003776 MOV #3776.R1 :: SETUP ADDRESS 

(1) 036120 105727 TSTB (PC) + USE MEMORY MANAGEMENT ? 

(1) 036122 000200 $KT11: .WORD 200 >> SET TO USE MEMORY MANAGEMENT 

(1) 036124 100070 BPL $CORE ::BR IF NO 

(1) 036126 012737 036300 000004 MOV WSKTNEX, AAERRVEC :3SET FOR TIMEOUT 

(1) 036134 005737 177572 TST aysRO ::kT11 ARE YOU THERE? 

(1) 036140 052737 100000 036122 BIS #100000, $KT11 VES-<SET KT11 KEY 

(1) 036146 012737 036406 000250 MOV AKTERR, aAMMVEC + SET IN CASE OF ERROR 

(1) 636154 012737 000340 000252 MOV #340, @AMMVE( +2 

(1) 036162 005046 CLR -(SP) ;zINITIALIZE FOR ‘PAR LOADING 

(1) 012702 172340 MOV #KIPARO, R2 ADDRESS OF FIRST ‘PAR 

(1) 036170 012703 000010 MOV #*D8,R3 : LOAD EIGHT 'PAR.'S'' AND EIGHT ‘PDR. 'S'' 

(1) 036174 012762 077406 177740 18: MOV #77406, -40(R2) ::PDR = 4K, UP, READ/WRITE 

(1) 036202 011622 MOV (SP), (R2)+ SILOAD ‘PAR’ 

(1) 062716 000200 ADD #200, (SP) : UPDATE FOR NEXT ‘PAR’! 

(1) 036210 077307 SOB ;LOOP UNTIL a EIGHT ARE LOADED 

(1) 036212 012742 177600 MOV ni77600, -(R2)  ::SETUP KIPAR7 FOR I/0 

(1) 036216 005042 CLR ‘SETUP KIPAR6 FOR TESTING 

(1) 036220 012737 036236 000004 MOV yee SWERRVEC *ICATCH TIMEOUT IF NO SR3 

(1) 036226 012737 000020 172516 MOV #20, a4SR3 ::ENABLE 22 BIT MODE 

(1) 036234 000401 BR 3$ *THIS PDP=11 HAS A SR3 REGISTER 

(1) 036236 022626 2s: CMP (SP) +, (SP)+ {CLEAN OFF THE STACK=-NO SR3 

(1) 036240 005237 177572 3$: INC avsRo URN ON MEMORY MANAGEMENT 

(1) 036244 012737 036270 000004 MOV #SKTOUT @#ERRVEC™ a FOR TIME OUT 

(1) 036252 005737 143776 48: TST 143776 7: TRAP ON NON-EX-MEM 

(1) 036256 062712 000040 ADD rte R2) S:MAKE A 1K STEP 

(1) 036262 023712 172356 CMP a4k JPAR7, (R2) 7 LAST _ONE? 

(1) 036266 101371 BHI 4$ *NO--TRY IT 

(1) 036270 011202 $KTOUT: MOV (R2) ,R2 :2GET LAST BANK+1 

(1) 036272 005037 177572 CLR a#sro TURN OFF MEMORY MANAGEMENT 
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100000 036122 SKTNEX: 


036336 
004000 
000040 
177776 


004000 
000040 


MACY11 = as 3 
ROUTINE 


000004 


SCORE: 
1$: 


$CROUT: 
SSIZEX: 


$LSTAD: 
$LSTBK: 


KTERR: 


kK 9 
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SIZE MEMORY 


$SIZEX 
#100000, $KT11 ;3KT11 NON-EXISTENT 
oe ;@WERRVEC 3 gSET FOR TIMEOUT 


:SET UP BANK 

#4000 R1 SCINCREMENT BY 1k 
0,R2 ii1k STEP 

tai STRAP ON TIME OUT 

#177776,R1 *=LAST ONE 

1$ + =NO=-TRY AGAIN 

#4000,R1 


#40,R2 ; DROP BACK 

RO, SP RESTORE THE STACK 
(SP) +, @#ERRVEC+2° ::RESTORE ERROR VECTOR 
(SP) +, @#ERRVEC 


R1,$LSTAD ;LAST ADDRESS 

R2,$LSTBK SILAST BANK 

(SP)+,R3 : RESTORE R3 

(SP)+,R2 ; RESTORE R2 

(SP)+,R1 ZZRESTORE R1 

ae : RESTORE RO 

0 7z CONTAINS THE LAST ADDRESS 

0 sz CONTAINS THE LAST BANK 
3KT11 FAILURE 

KTERR 


SEG 0114 
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13:10 AGE 76 
SAVE AND RESTORE RO=R5 ROUTINES 





-SBTTL SAVE AND RESTORE RO-RS ROUTINES 


5 FREER ARRREARKERAERRERERAAERAARREERARRRRRARARRERRARRARRRRERAARRAERAH 


7 *SAVE RO=R5 
*CALL: 
te 
}#TOP=-~(+16) 
p* +2---(+18) 
p% +4=--R5 
:* +6---R4 
3* +8---R3 
3*+10---R2 
3*+12---R1 
2*+14---R0 
$SSAVREG: 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
RTI 


7 *RESTORE RO-R5 
s*CALL: 


3* 
$SRESREG: 


RESREG 








RO,-(SP) 


R5,~-(SP) 

22(SP) ,-(SP) 
22(SP) ,-(SP) 
22(SP) ,-(SP) 
22(SP) ,-(SP) 


(SP) +,22(SP) 


(SP) +,22(SP) 
(SP)+,R5 
(SP)+,R4 
(SP)+,R3 
(SP)+,R2 
(SP)+,R1 
(SP)+,RO 


SAVREG 
5 SUPON RETURN FROM $SAVREG THE STACK WILL LOOK LiKE: 


7zPUSH RO ON STACK 
:zPUSH R1 ON STACK 
3;PUSH R2 ON STACK 
77PUSH R3 ON STACK 
;7PUSH R4& ON STACK 
77PUSH RS ON STACK 
7 SAVE PS OF MAIN FLOW 


2 ¢RESTORE PC OF CALL 


OF CALL 
RESTORE PC OF MAIN FLOW 
33 PS OF MAIN FLOW 
33POP STACK INTO R5 
3:POP STACK INTO R4 
3zPOP STACK INTO R3 
3:POP STACK INTO R2 
3zPOP STACK INTO R1 
3:POP STACK INTO RO 
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TEGER MULTIPLY ROUTINE 


INTEGER MULTIPLY ROUTINE 


MACY11 ag tet 


M . 
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Wen AAAAAAAAAAALASAASALAAAARESASARA RASA SALAR SERRE RAS E RRR RRR RRR SESS SS 


> *CALL 


* 


ee 
ee 


: 


MUL TIPLER,-(SP) 


MUL TIPLICAND,=-(SP) 
PC ,@#$MULT 
:sPRODUCT IS ON THE STACK 


PRODUCT 


) 
12(SP) ,R1 
1$ 
(SP) 

R1 

14(SP) ,R2 
2$ 

(SP) 

R2 
#17.,-(SP) 
RO 


4$ 
R2,RO 
RO 

R1 
(SP) 
3$ 

(SP)+, (SP) 
5$ 


(SP) 
RO,12(SP) 
R1,10(SP) 
(SP)+,R2 
(SP)+,R1 
(SP) +,RO 
PC 


:7;PUSH RO ON STACK 


SIGN _KEY 
E THE MULTIPLICAND POSTIVE 
IGET THE MULTIPLIER 
;BR_ IF PLUS 

; 3UPDATE THE SIGN KEY 

MAKE THE ae toe POSTIVE 
7:SET THE LOOP COUNT 
+ < SETUP FOR THE MULTIPLY LOOP 
3:DON'T ADD IF MULTIPLICAND = 0 


7zPOSITION THE PARITIAL PRODUCT AND 
he MUL TIPLICAND 
HAS ALL BITS OF THE MULTIPLICAND BEEN DONE? 


IF NO 
HOULD PRODUCT BE NEGATIVE? 
:i¢0 TO EXIT IF NO 

7:YES--SO MAKE IT SO 


eccteN SIGN INFO. OFF OF STACK 
a PRODUCT ON THE STACK (MSB'S) 


POP STACK INTO R2 
 EPOP STACK INTO R1 
3:POP STACK INTO RO 


SEQ 0116 
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CZNCCB.P11 31-AUG-79 11:21 INTEGER DIVIDE ROUTINE SEQ 0117 
arty -SBTTL INTEGER DIVIDE ROUTINE 
(2) FERRARA ERAERRAEKREREREEREREAEEEREREREREEEEREEREEEREHE 
1) TATHIS ROUTINE WILL DIVIDE ° 32-BIT TWO'S COMPLEMENT INTEGER 
(1) ;*DIVIDEND BY A 16-BIT TWO'S COMPLEMENT foot ane DIVISOR GIVING 
(1) 3*A_16-BIT TWO'S COMPLEMENT INTEGER QUOTIENT AND A 16-BIT REMAINDER. 
(1) :*DIVISION WILL BE PERFORMED SO THAT THE REMAINDER IS OF THE 
Ne ee SIGN AS THE DIVIDEND. 
a : 
(1) s* MOV LOW DIVIDEND,-(SP) ;;THE HIGH DIVIDEND MUST BE < 1/2 
(1) 7* MOV HIGH DIVIDEND,-(SP); AS LARGE AS THE DIVISOR 
(1) s* MOV DIVISOR,=(SP) 
(1) s* JSR PC,$DIV 
(1) 3* RETURN ; QUOTIENT & REMAINDER ARE ON THE STACK 
(1) :* ‘V's IMPLIES NO ERROR 
(1) ;* "V''=1 IMPLIES ERROR OCCURRED 
(1) s® "C''=0 DIVIDE OVERFLOW OCCURRED 
Ve ;* "C’'=7 ATTEMPTED TO DIVIDE BY ZERO 
-* 
(1) hd 
44 se STACK NO ERROR OVERFLOW DIVIDE BY ZERO 
OT 
(1) 3* TOP REMAINDER ALL ZEROS ALL ONES 
() ** +2 QUOTIENT ALL ZEROS ALL ONES 
(1) 036620 $DIV: 
(2) 036620 104400 TRAP ;sPUSH OLD PSW AND PC ON STACK 
(1) 036622 042716 000017 BIC #17,(SP) 7zSTRIP AWAY CONDITION CODES 
(3) 036626 010046 MOV RO,-(SP) 3=PUSH RO ON STACK 
(3) 036630 010146 MOV R1,~(SP) ;=PUSH R1 ON STACK 
(3) 036632 010246 MOV R2,-(SP) 3=PUSH R2 ON STACK 
(3) 036634 010346 MOV R3,-(SP) 3zPUSH R3 ON STACK 
(1) 036636 005046 CLR ~ (SP) ;2SAVE A PLACE FOR SIGNS 
(1) 036640 012746 000021 MOV G17. CSP) :sSETUP THE ITERATION COUNTER 
(1) 036644 016601 000024 MOV 24(SP) ,R1 ::PICKUP THE DIVIDEND 
(1) 036650 016600 000022 MOV 22(SP) ,RO 
(1) 036654 100005 BPL 1$ ::CHECK THE SIGN 
(1) 036656 105366 000003 DECB 3(SP) 7sKEEP TRACK OF THE SIGN 
(1) 036662 005400 NEG RO :zAND NEGATE THE ORIGINAL 
(1) 036664 005401 NEG R1 ; =NUMBER 
(1) 036666 005600 SBC RO 
(1) 036670 016602 000020 1$: MOV 20(SP) ,R2 i's THE DIVISOR 
(1) 036674 002407 BLT 2$ ; CHECK THE SIGN 
(1) 036676 003011 BGT 3$ ;:DIVISOR OF 0 IS A NO-NO 
(1) 036700 052766 000003 000014 BIS #3,14(SP) idan hw 
(1) 036706 012700 177777 MOV #-1,R0 77SET REMAINDER TO ALL ONES 
(1) 036712 000424 BR 2EXIT 
(1) 036714 005266 000002 2$: INC 2(SP) 7zKEEP TRACK OF DIVISORS SIGN 
(1) 036720 000401 BR 4$ 
(1) 036722 005402 3$: NEG R2 2 :NEGATE THE ORIGINAL NUMBER 
(1) 036724 000241 4$: CLC a x i 
(1) 036726 000405 BR 6$ :¢START FORMING QUOTIENT 
(1) 036730 006100 5$: ROL RO : POSITION MSB'S 
(1) 036732 010003 MOV RO,R3 s¢ 
(1) 036734 060203 ADD R2,R3 : COMPARE DIVIDEND & DIVISOR 
(1) 036736 103001 BCC 6$ ;:BR IF DIVIDEND > DIV!SOR 


CZNCCB NCV11 


CZNCCB.P11 
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000002 000014 


000001 


000020 
000016 


000002 
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6$: 


7$: 
8$: 


9$: 


10$: 


31-AUG-79 

INTEGER DIVIDE ROUTINE 

MOV R3,RO 

ROL R1 

DEC (SP) 

BNE 5$ 

TST R1 

BPL 8$ 

BIS #2,14(SP) 

CLR RO 

MOV RO,R1 

TST (SP) + 

TST (SP) 

BGE 9$ 

NEG RO 

CLRB 1(SP) 

DEC (SP) 

TST (SP) + 

BEQ 10$ 

NEG R1 

MOV R1,20(SP) 

MOV RO, 16(SP) 

MOV (SP)+,R3 

MOV (SP)+,R2 

MOV (SP)+,R1 

MOV (SP) +,RO 

at (SP)+,2(SP) 


B 10 
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; REMAINDER AFTER THIS LOOP 
; QUOTIENT BIT ENTERS HERE 


<BR IF NO 
had 
[:SET ''V'' IN RETURN STATUS WORD 


; C 

; REMAINDER SIGN CORRECTION NEEDED? 
;BR IF NO 

tZNEGATE REMAINDER 

ie EAR SIGN 
;BUT DON'T FORGET QUOTIENT 

:: QUOTIENT SIGN CORRECTION NEEDED? 


;BR IF 
+ NEGATE MQUOTIENT 
; RETURN QUOTIENT AND 
; REMAINDER TO USER 
:;POP STACK INTO R3 
:zPOP STACK INTO R2 
;;POP STACK INTO R1 
;zPOP STACK INTO RO 
77 SETUP TO RETURN CONDITION CODES 
7 RETURN 


SEQ 0118 
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2362 .SBTTL DOUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE 
(2) SAAR AERA EERE EERE RERREERERAEEARERERAREKE EE 
(1) :*THIS ROUTINE WILL CONVERT A 32-BIT BINARY NUMBER TO AN UNSIGNED 
(1) ‘*DECIMAL (ASCII) NUMBER. THE SIGN OF THE BINARY NUMBER MUST BE 
(1)  *POSITIVE. 
(1) 7*CALL 
(1) te MOV #PNTR,-(SP) ::POINTER TO LOW WORD OF BINARY NUMBER 
(1) ie JSR PC, a#$DB2D 
(1) - RE TURN ::THE FIRST ADDRESS OF ASCIZ 
(1) 1S ON THE STACK 
1) 
(1) 037040 104413 $DB2D: SAVREG ::SAVE REGISTERS 
(1) 037042 016602 000002 MOV 2(SP) ,R2 +=PICKUP THE DATA POINTER 
(1) 037046 012700 037220 MOV #SDECVL,RO ::GET ADDRESS OF ‘“SDECVL'’ STRING 
(1) 037052 010066 000002 MOV RO,2(SP5 [PUT ADDRESS OF ASCIZ STRING ON STACK 
(1) 037056 012201 MOV (R2)+,R1 :=PICKUP THE BINARY NUMBER 
(1) 037060 012202 MOV (R2)+.R2 
(1) 037062 012737 000012 037136 MOV #10. ,4$ SET UP TO DO 10 CONVERSIONS 
(1) 037070 012704 037150 MOV HSTNPWR RG <CADDRESS OF TEN POWER 
(1) 037074 012705 037152 MOV #STNPWR4+2,R5 
(1) 037100 005003 1$: CLR R3 ::CLEAR PARTIAL 
(1) 037102 161401 2$: SUB (R4),R1 +: SUBTRACT TEN POWER 
(1) 037104 SBC R 
(1) 037106 161502 SUB (R5) ,R2 
(1) 037110 002402 BLT 3$ ::BR IF TEN POWER TO LARGE 
(1) 037112 005203 INC R3 >:ADD 1 TO PARTIAL 
(1) 037114 000772 BR 2$ +: LOOP 
(1) 037116 062401 3$: ADD (R4)+,R1 ‘RESTORE SUBTRACTED VALUE 
(1) 037120 005502 ADC R2 
(1) 037122 062402 ADD (R4)+,R2 
(1) 037124 022525 CMP (R5)s (R5)+ ::MOVE TO NEXT TEN POWER 
(1) 037126 052703 000060 BIS #'°0,R3 * CHANGE PARTIAL TO ASCII 
(1) 037132 110320 MOVB _—R3, (RO) + T:SAVE IT 
(1) 037134 005327 DEC (PC)+ + : DONE ? 
(1) 037136 000000 4$: “WORD 0 
(1) 037140 001357 BNE 1$ :BR IF NO 
(1) 037142 105020 CLRB —- (RO) + «TERMINATOR 
(1) 037144 104414 RESREG S:RESTORE REGISTERS 
(1) 037146 000207 RTS PC + = RETURN 
(1) 037150 145000 $TNPWR: 145000 +1. 0E09 
(1) 037152 035632 35632 
(1) 037154 1604 160400 ::1.0€08 
(1) 037156 002765 2765 
(1) 037160 113200 113200 ::1.0€07 
(1) 037162 000230 
(1) 037164 041100 041100 ::1.0E06 
(1) 037166 000017 
(1) 037170 103240 103240 2:1. 0€05 
(1) 037172 1 
(1) 037174 023420 23420 121.0604 
(1) 037176 
(1) 037 001750 1750 2:1.0E03 
(1) 037202 000000 0 
(1) 000144 144 221.002 
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CZNCCB.P11 =. 34=AUG=79 11:21 DOUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE SEQ 0120 
(1) 037206 000000 0 . 
(1) 037210 000012 12 331.0€01 
(1) 037212 000000 0 
(1) 037214 000001 1 331.0€00 
(1) 037216 000000 0 
(1) 037220 000014 SDECVL: .BLKB 12. RESERVE STORAGE FOR ASCIZ STRING 
2363 "SBTTL. SINGLE LENGTH BINARY TO DECIMAL ASCIZ ROUTINE 
(2) SERRA RRR REEEEREREERRRERREEEREEEREEREREEEEEEEEREREKEREEEE EE 
(1) :*THIS ROUTINE WILL CONVERT A 16-BIT UNSIGNED BINARY NUMBER TO AN 
(1) : SUNS I GNED DECIMAL ASCIZ NUMBER. 
*% 

(1) ie MOV NUMBER.-(SP)  ;;PUT BINARY NUMBER ON THE STACK 
(1) :* JSR PC ,a#$SB2D CALL 

(1) is RETURN SZADDRESS OF THE 1ST ASCIZ CHAR.IS ON THE STACK 
(1) 

(1) 037234 016637 000002 037264 $SB2D: MOV 2(SP) ,1$ 7; SAVE BINARY NUMBER 

(1) 037242 012746 037264 MOV #1$,-(SP) 7:SET POINTER 

(1) 037246 004737 037040 JSR PC ,a#$DB2D £3 CALL DOUBLE LENGTH CONVERT 

(1) 037252 062716 000005 ADD #5, (SP) SONLY ALLOW FIVE CHARACTERS 

(1) 037256 012666 000002 MOV (SP) +,2(SP) [PICKUP POINTER 

(1) 037262 000207 RTS PC  TRETURN 

(1) 037264 000000 000000 1$: .WORD 0,0 
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2365 .-SBTTL TRAP DECODER 


LEAR RARER ERR REEERERRRRR EERE RRR REE 
3*THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE ‘‘TRAP’’ INSTRUCTION 
;*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
;*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
:*GO TO THAT ROUTINE. 


037270 010046 $TRAP: MOV RO,-(SP) 3:SAVE RO 

037272 016600 000002 MOV 2(SP) ,RO 2 2GET TRAP ADDRESS 
037276 005740 TST -(RO) sBACKUP BY 2 

037300 111000 MOVB (RO) ,RO :3GET RIGHT BYTE OF TRAP 
037302 006300 ASL RO sPOSITION FOR INDEXING 
037304 016000 037324 MOV $TRPAD(RO),RO :; INDEX TO TABLE 

037310 000200 RTS RO 3:GO0 TO ROUTINE 


3zTHIS IS USE TO HANDLE THE ‘'GETPRI'' MACRO 


037312 011646 $TRAP2: MOV (SP) ,-(SP) > MOVE THE PC DOWN 
037314 016666 000004 000002 MOV 4(SP),2(SP) 7 MOVE THE PSW DOWN 
037322 000002 RTI RESTORE THE PSwW 


-SBTTL TRAP TABLE 


:*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
3*BY THE ‘‘TRAP'' INSTRUCTION. 


ee ee a a a eet 


Ce ee ee ee en ee i et a an a ee, i a ae ee, a i ee ee ee ae ee i ee ee 
WW -2 WWW WWW AWW WWWAN AW 4 9 2) 4 23 9 Ss SY SS St SS st SS 


: ROUT INE 

037324 037312 $TRPAD: .WORD $TRAP2 
037326 034374 $TYPE ;;CALL=TYPE TRAP+1(104401) TTY TYPEOUT ROUTINE 
037330 034702 $TYPOC ;;CALL=TYPOC TRAP+2(104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
037332 034656 $TYPOS ;;CALL=TYPOS TRAP+3(104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 
037334 034716 STYPON ;;CALL=TYPON TRAP+4(104404) TYPE OCTAL NUMBER (AS PER LAST CALL) 
037336 033664 $STYPDS ;;CALL=TYPDS TRAP+5(104405) TYPE DECIMAL NUMBER (WITH SIGN) 
037340 033056 $GTSWR ;;CALL=GTSWR TRAP+6(104406) GET SOFT-SWR SETTING 
037342 033006 SCKSWR ;;CALL=CKSWR TRAP+7(104407) TEST FOR CHANGE IN SOF T-SWR 

(3) 037344 033270 $RDCHR = ;;CALL=RDCHR TRAP+10(104410) TTY TYPEIN CHARACTER ROUTINE 

(3) 037346 033410 SRDLIN ;;CALL=RDLIN TRAP+11(104411) TTY TYPEIN STRING ROUTINE 

(3) 037350 033562 $RDOCT ;;CALL=RDOCT TRAP+12(104412) READ AN OCTAL NUMBER FROM TTY 

(3) 037352 036412 SSAVREG ;;CALL=SAVREG TRAP+13(104413) SAVE RO-RS ROUTINE 

(3) 037354 036450 SRESREG ;;CALL=RESREG  TRAP+14(104414) RESTORE RO-R5 ROUTINE 
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037356 


037420 


037422 
03 


037520 
037522 
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004737 


001004 
004537 
000 


017737 


if 
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045676 
000100 
040104 


000001 
040104 


000200 
040104 


040104 
001000 
040104 
000010 
040104 
000020 


000001 
142152 
142150 
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141550 


141530 


141510 


141470 


141450 


141430 


141410 


141370 


141350 
142156 


040462 


-SBTTL A TO D FIELD re AND ADJUSTMENT LOOP 
TEST FOR CTRL C OR G 


FSITE: JSR PC,CTRLCG 
; CAMERA #0 
BIT #SWO06 , aSWR 
BNE 1$ 
= R5,CONVRT 
CAMOG1 
1$: BIT #SW00,aSwWR 
BNE 2$ 
JSR RS5,CONVRT 
BIT10 
CAMOG2 
; CAMERA #1 
es: BIT #SW7,aSWR 
BNE 3$ 
JSR R5,CONVRT 
BIT8 
CAM1G1 
3$: BIT #SW01,aSWR 
BNE 7 
JSR CONVRT 
ait 028118 
ty 1G2 
; CAMERA # 
4$: BIT #SW8,aSWR 
BNE 
JSR RS. CONVRT 
BIT9 
CAM2G1 
5$: BIT #SW2,aSWR 
BNE 6 
JSR R5,CONVRT 
Bin10:811 g 
AM2G2 
CAMERA & 
6$: BIT #SW9 ,aSWR 
BNE 7$ 
R R5,CONVRT 
BIT9'BI 
CAM3G1 
7$: BIT #SW3,aSWR 
BNE 
JSR RS, CONVRT 
BIT10'!BIT9'!BIT8 
CAM3G2 
; JOYSTICK 
10$: BIT #SW4 , ASWR 
BNE CALRPT 


BIS #B1TO,aSFR 
118: TSTB aSFR 

BPL 11% 
MOV aJ0Y,J0YG1 


TEST IF CAM O G=1 


bypass oy 


7 CAMERA 0 
: STORE RESULTS 
;TEST IF CAMO G 


; CONVERT 
GAIN = 2 


=2 


;TEST IF CAM 1 G=1 
; CONVERT 


; CAME 
sSTORE RESULTS 
TEST IF CAM 1 


RA 1 


; CONVERT 
; CAMERA 1 GAIN = 2 
RESULTS 


;TEST IF CAM 2 G=1 
; CONVERT 
s CAMERA #2 
;RESULTS 
sTEST IF CAM 2 G=2 


; CONVERT 


GAIN = 2 


RESULTS 
:TEST IF CAM 3 G=1 


; CONVERT 
; CAMERA #3 


sRESULTS 
;TEST IF CAM 3 G=2 


; CONVERT 
:GAIN = 2 
RESULTS 


G=2 


;TEST IF JOYSTICK 


sASK_FOR JOYSTICK 
WAIT FOR JOY DONE 


SAVE THE RESULT 


SEQ 0122 
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NOW TEST IS TYPEOUT IS ENABLED 
037614 040062 CALRPT: JSR RS,CKTSWR i: TEST BIT 6 
03762 BIT6 


1$ ;BR IF SET 
CAMOTX ;REPORT CAMERA #0 
R5 , CAMUNP ;REPORT VALUES 
R5,CKTSWR ;TEST BIT 0 


2$ 
CAMOTW ;REPORT G=2 
RS , CAMUNP 


R5,CKTSWR sTEST BIT 7 
3$ ;BR IF SET 
CAM1TX ;REPORT CAMERA #1 
RS, CAMUNP ;REPORT VALUES 
RS,CKTSWR ; TEST BIT 1 
4$ 
CAM1TW ;REPORT CAM 1 G=2 
R5, CAMUNP 
037722 
037724 : R5,CKTSWR ;TEST BIT 8 
000400 
5$ ;BR IF SET 
CAM2TX ;REPORT CAMERA #2 
RS, CAMUNP ;REPORT VALUES 
R5,CKTSWR :TEST BIT 2 
6$ 
CAM2TW 
RS, CAMUNP ;REPORT CAMERA #2 G=2 
RS,CKTSWR ;TEST BIT 9 
7$ ;BR IF SET 
CAM3TX ;REPORT CAMERA #3 
R5, CAMUNP sREPORT VLAUES 
R5,Ci TSWR : TEST BIT 3 
10$ 


CAM3TW ;REPORT CAMERA #3 G=2 
RS , CAMUNP 


R5,CKTSWR sTEST BIT 4 
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BR 11$ 
040654 JOYTW 
040360 RS, CAMUNP ;REPORT JOYSTICK 


037356 : MP FSITE 
141052 : (R5)+,@SwWR TEST IF INHIBIT THIS CAMERA 
BN 1$ BR IF YES 
020000 141042 #Sw13,aSWR TEST INHIBIT TYPE=OUT 
1$ SBR IF YES 


(R5)+ a ety EXIT POINTER 
RS sEXIT 
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CZNCCB.P11 31-AUG=79 11:21 D FIELD SITE AND ADJUSTMENT LOOP SEQ 0125 
2494 : SUBROUTINE TO TAKE, 8 CONVERS IONS AND AVERAGE FOUR OF THEM 

2495 0401046 012537 040354 CONVRT: MOV 11$ :SAVE CAMERA CHANNEL 

2496 040110 012777 004000 141640 4$: MOV SCPRALL LOSFR sCLEAR THE DEVICE 

2497 040116 013777 040354 141622 MOV 11$,aCSR ‘SELECT CAMERA AND GAIN 
2498 040124 012777 060000 141622 MOV #BUF 0, @BAR ‘LOAD BUS ADDRESS 

2499 040132 012777 177770 141612 MOV #-10,awWCR ‘LOAD WORD COUNT 

500 040140 013777 040356 141610 MOV INOUTZ,a@SFR ‘SET Z INPUTS IF ENABLED 
2501 040146 012 000004 MOV #4. ,RO “LOAD COUNTER 

2502 040152 005001 CLR R1 ‘FOR OUT OF RANGE VOLTAGE 
2503 040154 052777 000001 141564 BIS #B1T0,aCSR TENABLE THE DEVICE 

2504 040162 105777 141560 1$: TST8 = acSR ‘WAIT FOR IDLE 

2505 040166 100432 BMI 3$ 

2506 040170 005301 DEC R1 :DELAY 

2507 040172 001373 BNE 1$ 

2508 040174 004737 045676 JSR PC, CTRLCG :TEST FOR CTRL G ORC 

2509 040200 005300 DEC RO “FINISHED OUT OF RANGE TIMER 
2510 040202 001367 BNE 1$ 

2511 040206 032777 020000 140726 BIT #5W13,aSWR :TEST IF INHIBIT TYPEOUT 
2512 040212 001012 BNE 5$ ‘BR IF INHIBIT 

2513 040214 113700 040355 MOVB =: 11$+1 *GET CAMERA # 

2514 040220 042700 177774 BIC wavrree RO [MASK OFF EXTRA BITS 

2515 040224 062700 000060 ADD #60,RO “MAKE INTO ASCII 

2516 040230 110037 032716 MOVB —_—RO, OUTCHN S INSERT INTO ASCII ERROR MESSAGE 
2517 040234 104401 032623 TYPE,  OUTRNG = TELL OPERATOR 

2518 040240 032777 100000 140672 5S: BIT #SW15,aSWR ‘TEST IF HALT ON NO CONVERSION ERROR 
2519 040246 001401 BEQ 6$ [BR IF CLEARED 

2520 040250 000000 HALT  ;NO CONVERT FLAG - INPUT VOLTAGE WAS OUT OF RANGE OR NO ‘'Z'' PULSES 
2521 040252 000716 6$: BR 4$ 

2522 040254 012700 060000 3$: MOV #BUFO,RO ZLOAD POINTER 

2523 040260 005003 CLR R3 >CLEAR RESULT 

2524 040262 005004 CLR RG 

2525 040264 012737 000004 040352 MOV #4,10$ :LOAD COUNTER 

2526 040272 112002 2$: MOVB (RO) +, R2 *GET LOW BYTE 

2527 040274 112001 MOVB (RO) +.R1 ‘GET HIGH BYTE 

2528 040276 042702 177400 BIC #177400,R2 

2529 040302 042701 177400 BIC #177400.R1 

2530 040306 060104 ADD R1,R4 ;UPDATE RESULT 

2531 040310 060203 ADD R2,R3 [UPDATE RESULT 

2532 040312 005337 040352 DEC 10$ ‘FINISHED ? 

2533 040316 001365 BNE 2$ 

2534 040320 006203 ASR R3 

2535 040322 006203 ASR R3 

2536 040324 006204 ASR RG 

2537 040326 006204 ASR R4 

2538 040330 010437 040352 MOV R4,10$ sSAVE IT 

2539 040334 105037 040353 CLRB —s-: 10$ +1 “CLEAR HIGH BYTE 

2540 040340 110337 040353 MOVB _——R3, 10$+1 [LOAD HIGH BYTE 

2541 040344 013735 040352 MOV 108, a(R5)+ SSAVE THE RESULT 

2542 040350 000205 RTS 

2543 040352 000000 10$: 0 

2544 040354 000000 11$: 0 

3545 040356 000002 INOUTZ: TESTZ :0= USE CUSTOMER Z PULSES, 1= MAINT Z PULSES 
2547 ; SUBROUTINE TO TYPE THE CAMERA MESSAGE 

2548 040360 013537 040436 CAMUNP: MOV a(R5)+ , 198 :GET RESULT 

2549 040364 113737 040437 040440 MOVB 10$+1,11$ 
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DIAGNOSTIC 
31=AUG-79 11:21 
105037 040437 
105037 040441 
013746 0404 
104403 
003 001 
104401 040672 
013746 040440 
104403 
003 001 
000240 
000240 
000240 
000205 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
015 012 
040503 030115 
036507 020061 
000 
015 O12 
103 046501 
943449 031075 
015 (012 
040503 030115 
036507 020061 
000 
015 012 
103 046501 
043440 031075 
000075 
015 (012 
040503 030115 
036507 020061 
000 
015 O12 
103 046501 
043440 031075 
000075 
015 (O12 
040503 030115 
036507 020061 
000 
015 Ol2 
103 046501 
043440 031075 


MACY11 30G6(1063 
A 10D 


020060 
036530 


030060 
054040 


020061 
036530 


030460 
054040 


020062 
036530 


031060 
054040 


020063 
036530 


031460 
054040 


CAM1TW: 


CAM2TX: 


CAM2TW: 


CAM3TX: 


CAM3TW: 
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TS 


lelelelelelslelelaleleP :) 


: BYTE 


eASCIZ 


: .BYTE 


eASCIZ 


: .BYTE 


-ASCIZ 


-BYTE 
-ASCIZ 


-BYTE 
eASCIZ 


-BYTE 
-ASCIZ 


-BYTE 
eASCIZ 


-ASCIZ 


10$+1 

11$+1 

10$,-(SP) 

1 : TYPE 3 DIGIT NUMBER 
B ZAND TRALING ASCII 
$,-(SP) 

, 


TYPE 3 DIGIT NUMBER 


R5 EXIT 


/CAMOO G=2 X=/ 


/CAMO3 G=1 X=/ 


/CAMO3 G=2 X=/ 


SEQ 0126 
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2609 


2610 


041 
041050 


oo 
SEAIAE 


— 
KSRSSASERSEKS 


RSSRSS 


RR Pee Rae Pe Pe Pane pe pe pays pe pepe pe pepe pe’ 
wei 
Aon 


RRRRRRRRRRKRKRRRRKKKRRRRKKKEK 


NMPonononshnory 


DIAGNOSTIC 


31-AUG- 


020040 
020113 


I 
79 11:27 


000 
025052 


40 
052105 
052012 


044103 
053523 
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044524 
000075 


054524 
040507 
040 
040 


000040 
005015 
050111 
052123 
024523 


051105 
006452 


046440 
051525 

000 
052101 
041501 
054503 


020115 
4524 


041505 
052111 


JOYTX: 

JOYTW: .BYTE 
-ASCIZ 

G1B: -ASCIZ 


GAIN: -ASCII 


GAINX: .ASCII 
GAIN]: .BYTE 


DASH: -ASCIZ 
LSBMSG: .ASCIZ 


SKPMSG: .ASCIZ 


ERMSG: .ASCIZ 


OKMSG: .ASCIZ 


NARMSG: .ASCIZ 


WIDMSG: .ASCIZ 


STATE: .ASCIZ 


LINEA: .ASCIZ 


SLASH: .ASCIZ 
MSG21: .ASCIZ 


COMP : eASCIZ 


TIMEO: .ASCII 


15,12 
/JOYSTICK X=/ 


/ Y=/ 
<15><12>/DIFFERENTIAL LINEARITY:/ 


/ GAIN = / 
61,40,40,0 
/ 


-- / 
/ LSB/<15><12> 
/ SKIPPED STATE(S)/<15><12> 


~ 


* *ERROR**/<15><12> 


OK/<15><12> 
# NARROW STATE(S)A<15><12> 


# WIDE STATE(S)#<15><12> 
/STATE=- WIDTH/<15><12> 


/ LSB MAXIMUS AT / 
a/f 
/RELATIVE ACCURACY :/<15><12> 


<15><12>/ROM BLASTING COMPLETED/ 


<15><12>/TIMEOUT FROM BLASTER CHECK SWITCHES ON BLASTER/ 


SEQ 0127 
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051505 047440 
051501 


Beats : <15><12>/ OR REPLACE ROM IN BLASTER/<15><12> 


See 
MFENONESAOW NS 


WWWNWWG 
WN 


FIELDI: .BYTE 
-ASCiZ RNAL MAINT. Z PULSES <Y FOR YES> ? / 


BEEK 


$s 


047506 
037123 
051105 -ASCIZ <15><12>/AVERAGE OF 128 STATES = / 
043117 


051440 
020123 


UNFIX: .BYTE 
ASC] 


-_—ON 
NROWR 


15,12,7 
7ZEXCEEDED CORRECTION COUNTER FOR / 


PUM REE EE EEE EEE 
x RESVALRKS 


* 
NONSAWOM 


15,12,7 
/ROM BLASTING ABORTED/ 
052122 
007 : 15,12,7.0 
020040 SGNVAL: . / = / 
SGNVL1: 53.40 
O56 PERTXT: 60,60,56,60,45,15,12,0 
000 RTN: 15,12,0,0 


053517 BELMSG: . / BELOW LIMIT/<15><12> 
052111 


046522 NORMSG: . / NORMAL STATES/<15><12> 
040524 


000012 
042526 
052111 
051523 PASMSG: . / PASSED/<15><12> 


046111 FAIMSG: . / FAILED/<15><12> 
000 


MAMA ITT UT SS 


ah al 
5 a ad 
awn 


ABOMSG: . / ABOVE LIMIT/<15><12> 


ek ek ek ek kd i ka Bd ed ad 2) od = od 2) 3 2 I ot SS = = 3 2a = ot 2 SS as I SY 


04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
04 
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CZNCCB.P11 31-AUG-79 11:21 FIELD SITE AND ADJUSTMENT LOOP SEQ 0129 
041676 .EVEN 
2630 041676 000000 LSBAVG: 0 
2631 041700 000000 LSBSVQ: Q 
2632 041702 00C000 LSBSVR: 0 
2633 041704 000000 LSBSVW: 0 
2634 041706 000000 DIFEX1: 0 
2635 041710 042132 R T: ROMVAL 
sone 041712 027340 NOMIAL: 12000. ;AVERAGE COUNT 
2638 ; THESE LOC."S CLEARED BY DIFLIN 
2639 041714 000000 AVGVAL: 0 
2640 041716 000000 DIFERR: 0 
2641 041720 000000 BELOW: 0 
2642 041722 000000 ABOVE: 0 
2643 041724 000000 NORMAL: 0 
2644 041726 000000 NARROW: 0 
2645 041730 000000 NARA: 0 
2646 041732 000000 : @g 
2647 041734 000000 WIDA: 0Q 
2648 041736 000000 WIDB: 0 
2649 041740 000000 DIF: 0 
2650 041742 000000 OUT: 0 
2651 041744 000000 FIRST: O 


CZNCCB 


NCV11 


CZNCCB.P11 


Os it 
11:21 


31-AUG-79 


105777 
0000 


137724 


137712 
042130 


137152 
042130 


137140 
042130 


060000 
042130 


137104 
137100 
177600 
000003 
000177 
000140 
000040 
137600 
002646 
000033 
000134 
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A TO D FIELD SITE AND ADJUSTMENT LOOP 


KEYBOARD CONVERSATION TO THE BLASTER SELECT TEST ‘'T'' 


; L 
sTYPE 000/37 
dl 7P 


LOOPD: TSTB 


BTALK: MOV 


LOOPE : 


1$: MOV 


BR 
2$: JMP 
LOOPF: MOV 


BLICNT: 0 


APPLY POWER TO yy ia we 1/0 AND EXECUTE BUTTONS 


THE BLASTER SHOULD SEND A ‘'>** CHARACTER 


A ‘'CR’', SOME WILL ECHO THE CR AND OTHERS 
CURRNET COMMAND 


LOWED BY 
TYPE TEST" ALT KEYS TO ABORT 


:THIS SETS OCTAL COMMAND A a 
THIS SET OCTAL INPUT/OUTPU 
THIS SIZES THE PROM -- 0087/8 1s REPORTED BY THE BLASTER 


THIS OUTPUTS THE RAM CONTENTS TO THE TTY 
THIS EXITS COMPUTER CONTROL TO THE BUTTON MODE 


@DLICSR 
LOOPD 


@DL IBD, (RO)+ 
BLICNT 


@$TKB,R2 
oi) Seon 


#177,R2 
LOOPF 
R2. #140 
1$ 
ty R2 
2, aDLODB 
oop 
RBEGO 
#33, @DLODB 
#'\ ,a$TPB 


* 


LOOPC 


sBLASTER INPUT ? 
NO 


SAVE THE CHARACTER 
[UPDATE COUNTER 


;PRINTER READY ? 
7BR IF NOT 
ANY CHARACTERS 
;BR IF NOT 
PRINT THE CHAR. 
;BR IF MORE DATA 


BR - LOOPC 
; COME -_ IS NO BLASTER DATA a BE TYPED 
STB a$TKS 


sKEY YBOARD INPUT 
IF NOT 


READ CHAR 
;MASK THE DATA 
TEST FOR CTRL C 


;BR IF 
i: TEST IF LOWER CASE 
NOT 


BR IF 
MAKE UPPER CASE 
;LOAD BLASTER DATA OUT 


; JUMP TO RESTART 
;LOAD ESC <CANCLE> 


SEQ 0130 
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3A017 CORRECTION PROM VALUES <MEMORY RAM> 
ROMVAL: .BYTE  200,200,200,200,200,200,200,200 ;GAIN 















-BYTE 200,200,200,200,200,200,200,200 








200 «BYTE  200,200,200,200,200,200,200,200 ;GAIN = 2 VALUE 













2711 042162 200 200 200 -BYTE 200,200,200,200,200,200.200,200 
Be5 192 200 200 200 


2712 
2713 3;A017 CORRECTION PRAM VALUES <RAM MEMORY> 
ay ;ROMVAL MUST BE IN COMPLEMENTED AND REVERSED ORDER <LSB=MSB> 


2716 042172 376 376 376 RAMVAL: .BYTE  376,376,376,376,376,376,376,376 ;GAIN = 7 VALUE 
04217° 376 376 376 


042200 
2717 042202 376 376 376 BYTE 376,376,376,376,376,376,376,376 
042205 376 376 376 


2718 042212 376 376 376 -BYTE 376,376,376,376,376,376,376,376 ;GAIN = 2 VALUE 
042215 376 376 376 


2719 042222 376 376 376 BYTE 376,376,376,376,376,376,376,376 


042225 376 376 376 
042230 376 376 

2720 

2721 :M8036 PROGRAM PROM VALUES 

5795 

2724 042232 215 244 116 PROROM: .BYTE 215,244,116,144,215,244,116,144 ;M8036 PROGRAM PROM 
042235 144 215 244 
042240 116 144 

2725 042242 215 244 116 sBYTE = 215,244,116,144,215,244,116,144 
042245 144 215 oat 
042250 116 144 

2726 042252 1 144 314 BYTE = =106,144,314,304,377,377,377,377 
042255 3 377 377 
042260 377 


377 BYTE 3 =377,377,377,377,377,377,377,377 


WNWAW 
VIVRE 
Ww 
N 
N 
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11:21 

050762 
051374 
000001 
043062 
043062 
043062 
042132 
000200 
042172 


000036 
046006 


137366 


046002 


040741 
041710 


046002 


040741 
041710 


042616 
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A TO D FIELD SITE AND ADJUSTMENT LOOP 


;BLASTER SECTION 
BLAST: TYPE 


PRIMO 

PRIMS 

#B1TO, — 
R5,RDBLST 


R5,RDBLST 
R5,RDBLST 


FMO 
; PRIME y+ 8 MEMORY RAM BUFFER 


1$: 


#ROMVAL +40, -RO 
#36,PRIME1 
R5,LIMITS 
#'1,GAIN1 
#ROMVAL +1 ,ROMPNT™ 
PC,4$ 

#2036 ,PRIME1 
R5,LIMITS 


#'2,GAIN1 


#ROMVAL +21, ROMPNT 
C.4$ 


#1, DIFEX1 
#6$,,DIFEXO 
ZAPRAM 


e 


DIFLNO 


; TELL OPERATOR ABOUT THE CABLE 
SAND SWITCHES 


SENSURE INIT. ROM CONTROL LINE 

;TELL THE BLASTER TO INITILIZE 

ZREALLY WE ARE WAITING FOR THE OPERATOR 

; TELL THE BLASTER THE KEYBOARD INPUT MODE 


;TELL THE BLASTER THE DATA FORMAT <ASCII-OCTAL> 


GET POINTER 

A ty THE BUFFER 

: TEST IF DONE 

:BR IF BUFFER NOT PRIMED 

;LOAD GAIN AND RESOL. VALUES 
;LOAD DIFLIN ERROR LIMIT VALUES 
:G1 LIMIT = USERS 


[G1 LIMIT = OPTION CHECKOUT 


;LOAD GAIN TYPEOUT VALUE 

;LOAD RAM POINTER 
;TEST THAT GAIN 
[LOAD GAIN AND RESOL. VALUES 
;LOAD DIFLIN ERROR LIMIT VALUES 
:G2 LIMIT = USERS 
:G2 LIMIT = OPTION CHECKOUT 
;LOAD GAIN TYPEOUT VALUE 

LOAD RAM POINTER 
: TEST GAIN OF 2 


;LOAD LOOP COUNTER 
LOAD DIFLIN EXIT FLAG 


;LOAD DIFLIN EXIT RETURN 
sENSURE BLASTER RAM HAS BEEN LOADED WITH 
; THE ‘RAMVAL'' VALUE 


RUN ‘DIFLIN' 
sADJUST AND FIX THE CORRECTION WEIGHTS 


;HAS i als BEEN EXECITED N TIMES 
STEST IF ERROR OCCURRED? 
:BR IF NOT 


: TELL * OPERATOR 

; ABOUT 

ri OPER. THE BLASTING IS ABORTED 
sEXIT 


SEQ 0132 
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aes it 
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31-AUG-79 1 


043062 
043062 
043062 
043242 
043062 
051765 


041170 
002646 


042172 
042132 


042172 


043244 


000001 
043062 


043062 
043062 
000001 
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iim RAM DATA a CORRECT = BLAST THE BLANK R 


SEQ 0133 


:TELL THE BLASTER TO COMP. THE DATA 
; TELL THE BLASTER TO CHECK=SUM DATA 
;TELL THE BLASTER TO BLAST THE ROM 


;SET FLAG TO EXIT WITHOUT RECPT OF *>'* CHAR FROM BLASTER 
;TELL THE BLASTER TO RETURN TO KEYPAD MODE 


;TELL OPERATOR TO REMOVE RAM CABLE AND INSTERT ROM INTO AO17 


; CLEAN STACK 
; COMPLETED 


0 
; SUBROUTINE TO CONVERT THE MEMORY RAM VALUE INTO RAM MEMORY VALUE 
MRAMVAL ,R3 sk 


OAD OUTPUT POINTER 
;LOAD INPUT POINTER 


*CLEAR RESULT 
“MOVE INTO CARRY 


z 
2 
~ 
—_ 
2 
=~ 
oO 
@ 
_ ran 
4 _ 
2 & & @& 8&8 6&6 @& ®@ 


8 
CARRY INTO BIT 
: OUTPUT BYTE 
TEST IF END 


JSR RDBLST 

Cm 

JSR R5,.RDBLST 

cco 

JSR R5,RDBLST 

PGO 

INC NOEXIT 

pas RS ,RDBLST 
; INFORM THE OPERATOR ABOUT THE BLASTER ROM 

TYPE, PRIMI 

RDLIN 

MOV (SP)+,RO 

TYPE, COMP 

JMP RBE GO 
100$: 
ZAPRAM: MOV 

MOV #ROMVAL , RO 
1$: MOVB (RO)+,R1 

COMB R1 

CLR R2 

ROR R1 

ROL R2 

ROR R1 

ROL R2 

ROR R1 

ROL Re 

ROR R1 

ROL R2 

ROR R1 

ROL R2 

ROR R1 

ROL Re 

ROR R1 

ROL R2 

ROR R1 

ROL 

MOVB R2, (R3)+ 

CMP me ,AROMVAL +40 


F NOT 


BNE :BR I 
a TO LOAD MEMORY RAM INTO RAM MEMORY 
5, CONROM 


BIS #B1T0,aDLICSR 
JSR R5 ,RDBLST 


JSR R5,RDBLST 

cco 

JSR R5,RDBLST 

PGO 

BIC #B1T0,aDLICSR 
RTS PC 


CONVERT *ROMVAL'' TABLE INTO BLASTER FORMAT 


;ENABLE RAM MEMORY TO BE LOADED 
;TELL THE BLASTER THE NEW RAM DATA 


; TELL THE BLASTER TO CHECKSUM THE DATA 
;TELL THE BLASTER TO PROGRAM THE RAM-PAK 
— EMMULATE MODE 


. 
e 
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A TO D FIELD SITE AND ADJUSTMENT LOOP 

;BLASTING THE PROGRAM PROM (M8036) 

PBLAST: TYPE, 
BIC 


PRIMS ; INFORM THE OPERATOR 

WB1TO,@DLICSR  ;ENSURE ROM MODE 

R5 ,RDBLST ;TELL THE BLASTER TO INITILIZE 

R5 ,RDBLST ; TELL THE BLASTER THE KEYBOARD INPUT MODE 
R5,RDBLST ;TELL THE BLASTER THE DATA FORMAT <ASCII-OCTAL> 
R5 , CONROM ; CONVERT THE *PROROM’’ TABLE INTO BLASTER FORMAT 
R5 ,RDBLST ;TELL THE BLASTER THE PROM DATA 

RS ,RDBLST ;TELL THE BLASTER TO CHECKSUM THE DATA 

RS ,RDBLST ;TELL THE BLASTER TO BLAST THE PROM 


NOEXIT ;SET FLAG TO EXIT WITHOUT RECPT OF *>*’ FROM BLASTER 
R5,RDBLST ;TELL THE BLASTER TO RETURN TO KEYPAD MODE 


COMP ; INFORM THE OPERATOR IT'S DONE 
RBEGO 


SEQ 0134 
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MACY11 3 


043240 
043234 


136546 


2 


F 11 
-79 13:10 PAGE 89 
E AND ADJUSTMENT LOOP 


;COME THERE TO OUTPUT A MESSAGE TO THE BLA 
Y WHEN THE BLASTER HAS ECHOED AN 


SPL IBD 11$ 
#177600, 118 
#'>,11$ 

1$ 


(SP) +,RO 
NOEXIT 
RS 


AVE R 
GET ARG 


[LOAD DELAY FOR ERROR COUNTER 
“LOAD A CHAR 


LOAD 


tFALSE READ TO CLEAR READY 
“WAIT FOR OUTPUT READY 


;TEST IF FINISHED ? 


;GET A CHAR. 
;BR IF TERM 


sOUTPUT THE CHARACTER 
NPUT 


sWAIT FOR I 
;BR IF INPUT 
DELAY 


Zs DELAY 


sTEST IF EXIT IS ALLOWED WITHOUT ‘S" 
;BR IF YES 


READ CHAR 


;MASK OFF BITS 


; TEST FOR > 


STER 
ih aks 


TRY NEXT CHAR. 


;RESTORE RO 
sEXIT 


SEG 0135 
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11:21 A TO D FIELD SITE AND ADJUSTMENT LOOP SEQ 0136 
: CONVERT ROM DATA INTO PROM BLASTER FORMAT 
052612 CONROM: MOV #DIDATA+3,RO :LOAD RESULT POINTER 
MOV (R5)+,R1 [LOAD INITIAL VALUE POINTER 
3322 MOV R1,10$ ‘COPY THE START 
ta 043322 ADD #46, 10$ [MAKE THE END ADD. SS 
1$: MOVB = (R15,R2 ‘GET A BYTE OF DAIA 
043344 JSR PC, SHUFO :CONVERT IT TO ASCII 
MOVB = (Ri) ,R2 ‘GET SAME BYTE AGAIN 
043336 JSR PC, SHUF 3 SCONVERT 2ND DIGIT 
MOVB = (R1)+,R2 7GET MSD 
043324 JSR PC, SHUF6 ‘CONVERT IT 
000007 ADD #7,RO ; UPDATE RESULT POINTER 
043322 CMP R1.10$ ‘TEST IF DONE 
BNE 1$ 
RTS RS SEXIT 
10$: 0 
:ROTATE THE DATA RIGHT AND MAKE ASCII CHARACTER 
177477 SHUF6: BIC #177677 ,R2 :MASK OFF BITS 
ASR R2 
ASR R2 
ASR R2 
SHUF3: ASR R2 
ASR R2 
ASR R2 
177770 SHUFO: BIC #177770,R2 :MASK OFF BITS 
000060 ADD UR “MAKE ASCII 
MOVB R2,-(RO) ;LOAD RESULT BYTE 
RTS PC EXIT 
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10$: 


1$: 


; SUBROUTINE TO ADJUST THE LSB VALUES 
ADJFIX: MOV #BUF 1436 ,RO ;GET BUFFER POINTER 
MOV ROMPNT ,R2 =GET ROM POINTER 
MOV R2,R4 
ADD #17,RG :MAKE END VALUE 
MOV (ROS+,R1 ‘GET LSB (17) M=1 
ADD (RO), ‘ADD LSB (00) M 
SUB AVGVAL ,R1 ‘SUB 2 LSB AVG. 
SUB AVGVAL .R1 
MOV R1,L :SAVE FOR LATER USAGE 
MOV R1.=( SSAVE ON STACK 
mov #316,-(SP) “MULTI BY 316 (8) 
MOV (SP)+,100$ ZSAVE LSW 
MOV (SP)+.101$ ‘SAVE MSW 
MOV 100$,-(SP) 
MOV 101$,-(SP> 
MOV AVGVAL , (SP) 
JSR ,$D1V 
BVC :BR IF NO ERROR 
HALT :MATH ERROR 
HALT ‘ VALUE OUT OF RANGE 
NOP 
NOP 
MOV (SP)+,LSBSVR  ; SAVE INTGR. REMAINDER 
MOV (SP)+,LSBSVO —- : SAVE QUOTIENT 
:NOW ADD THE QUOTIENT TO THE MEMORY RAM VALUE 
MOVE (R2) ,R3 :GET CURRENT MEMORY RAM VALUE 
BIC #177400,R3 :CLEAR OFF UPPER BITS 
SUB LSBSVO,R3 ‘ADD THE QUOTIENT 
MOVB —-R3, (R2)+ “RELOAD MEMORY RAM VALUE 
:NOW UPDATE 'M'' VALUE POINTER 
ADD #36,RO :UPDATE POINTER 
MOV (ROS .R1 *GET VALUE 
ADD LSBSVW,R1 “CORRECT THE VALUE (#10) 
MOV R1, (ROD SRESTORE FOR NEXT USAGE 
CMP R2-R4 ‘TEST WHEN FINISHED 
BNE 10$ ‘BR UNTIL DONE 
RTS PC SEXIT 


I 


SEQ 0137 


I 11 
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CZNCCB.P11 31-AUG-79 11:21 A TO D FIELD SITE AND ADJUSTMENT LOOP SEQ 0138 
2966 

2967 : DIFFERENT IAL LINEARITY 

2968 043546 005037 041706 DIFLIN: CLR DIFEX1 :CLEAR EXIT FLAG 

2969 043552 112737 000061 040741 MOVB  #'1,GAIN1 ‘LOAD GAIN MESSAGE VALUE 

2970 043560 165737 001134 TSTB —- $AUTOB ‘TEST IF UNDE? MONITOR 

2971 043564 001007 BNE 10$ ‘BR IF YES 

2972 043566 104401 040676 TYPE, GAIN 

2973 043572 005737 043546 TST DIFLIN :TEST BIT 15 

2974 043576 100402 BMI 10$ ‘DONT TELL OPER. ABOUT A017 

2975 043600 104401 050762 TYPE, PRIMO ‘TELL OPERATOR ABOUT A017 

2976 043604 012737 000036 046002 10$: MOV #36,PRIME1 ‘LOAD RESOLUTION AND GAIN 

2977 043612 004537 046006 JSR R5,LIMITS ‘LOAD DIFLIN TOLERANCE 

2978 043616 046072 G1LIMO :G1 USER LIMIT 

2979 043620 046112 G1LIM1 761 OPTION AREA 

2980 043622 012737 043632 046004 MOV #1$,DIFEXO [LOAD RETURN ADDRESS 
2981 043630 000433 BR DIFLNO | 
2982 043632 112737 000062 040741 1S: MOVB #'2,GAIN1 ;LOAD GAIN MESSAGE VALUE 

2983 043640 012737 002036 046002 MOV #2036, PRIME1 ;LOAD RESOLUTION AND GAIN 

2984 043646 004537 046006 JSR R5,LIMITS “LOAD DIFLIN TOLERANCE 

2985 043652 046132 G2L IMO (6 USER LIMIT 

2986 043654 046152 G2LIM1 :G2 OPTION AREA 

2987 043656 012737 043700 046004 MOV #2$ ,DIFEXO *LOAD RETURN ADDRESS 

2988 043664 105737 001134 TSTB —« $AUTOB “RUNNING UNDER MONITOR 

2989 043670 001002 BNE 11$ ‘BR IF YES 

2990 043672 104401 040676 TYPE, GAIN 

2991 043676 000410 11$: BR DIFLNO 

2992 043700 022737 177777 050022 2$: CMP #~1,RUND IF sENTER VIA 'F'* SELECTION ? 

2993 043706 001002 BNE 3$ ‘BR IF NOT 

2994 043710 000137 030100 JMP SEOP ‘YES REPORT END OF PASS 

2995 043714 000137 002646 3$: JMP RBE GO 

2996 

2997 

2998 :DIFLIN ROUTINE 

2999 043720 012700 041714 DIFLNO: MOV MAVGVAL ,RO ZLOAD CLEARING POINTER 

3000 043724 005020 DIFLNX: CLR (RO) + 

3001 043726 022700 041746 CMP #F IRST+2,RO :FINISHED ? 

3002 043732 001374 BNE DIFLNX ‘BR IF NOT DONE 

3003 043734 012700 060000 MOV #BUFO,RO ‘LOAD BUFFER POINTER 

3004 043740 005020 1$: CLR (RO) + [CLEAR THE DATA BUFFER 

3005 043742 022700 064000 CMP #BUF 2,RO ‘TEST IF FINISHED 

3006 043746 001374 BNE ‘BR IF NOT 

3007 :LOOK FOR THE DATA REGION FOR TO 

3008 043750 004737 045630 JSR PC,STDATO FIND THE NON-ZERO TO ZERO TRANS. DATA 
3009 ;DATA HAS NOW GONE INTO THE GOOD 0 DATA REGION 

3010 043754 012777 000000 135762 MOV #0, aKWPSR : INIT THE CLOCK PRESET 

3011 043762 012777 000025 135750 MOV #25 ,aKWCSR ‘ENABLE THE CLOCK 

3012 “NOW TIME ''T1'’ LENGTH 

3013 043770 004737 045474 2$: JSR PC, UsTDT :GET CURRENT DATA VALUE 

3014 043774 022702 000000 CMP #0.R2 *TEST FOR EXIT OF 0 DATA REGION 
3015 044000 001773 BEQ 2$ ‘BR UNTILL DONE 

3016 044002 105077 135734 CLRB aKWCSR1 : 

3017 044006 152777 000002 135726 BISB #BIT1,aKWCSR1 SFIRE ST2 

3018 044014 017737 135724 045666 MOV @KWPSR,DIFT1 *SAVE COUNTER VALUE 

3019 NOW TIME ‘'T2°' LENGTH 

3020 044022 004737 045474 S$: JSR PC LISTDT :GET CURRENT DATA VALUE 

3021 044026 022702 000377 CMP #377, =TEST FOR ENTRY INTO MAX DATA REGION 


J11 
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;BR IF NOT 


135702 akWCSR1 

000002 #B1T1 ,@KWCSR1 sFIRE ST2 

135672 7 ., , akWP a »DIFT2 SAVE COUNTER VALUE 

TIME. M13 " LENGTH 

045474 : JSR 37,Re 3GET CURRENT DATA VALUE 

000377 ; TEST FOR EXIT OF MAX DATA REGION 
;BR IF NOT 

135650 SKWCSR1 

000002 A#BITI, Pwsthih FIRE ST2 

35640 @KWPSR ,DIFT3 SAVE CLOCK. VALUE 


: 
135626 CLR _akWCSR : STOP " 
:NOW DETERMINE THE AVG TIME (13+T2)/2 AND SAVE-IN “HT2T3 
045670 DIFT2,RO GET T2 VALUE 
045672 ADD DIF T3<RO ADD T3 VALUE 
ROR —- RO :/2 


045674 MOV RO,HT2T3 SAVE FOR LATER USE 
;NOW RETURN TO LIST MODE AND LOOK FOR THE ati T™ EDGE AGAIN 
045630 DIFLNI JSR PC,STDATO FIND THE EDGE 
NOW START THE CLOCK USING THE AVG TIME 
SAND DO AN MATRIX MODE COLLECTION 
045674 MOV HT2T3,RO :GET AVG CLOCK 
RO FIX FOR ae PRESET REG 
135576 al ;LOAD CLOCK PRESET 
PRIME CLOCK 
#CLRALL, + ih INIT THE NCV11 
#BUF 0, aOF F [LOAD OFFSET 
awCR :CLEAR Z COUNTER 


@BAR é 

PRIME1,@CSR :SET MODE AND RES. 
#TESTZ‘BIT4,aSFR SET TESTZ AND TESTX 
#B1T0,aCSR ENABLE NCV11 
#B1T0,aKWCSR ENABLE CLOCK 

akWCSR SWAIT FOR CLOCK FLAG 


100375 1$ 
052777 MENDDMA, aSFR :STOP DMA XFR 
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K 11 
MACY11 30G(1063) 31-AUG-79 13:10 PAGE 


A TO D FIELD SITE AND ADJUSTMENT 


93 
LOOP SEQ 0140 


:THE MATRIX MODE XFR IF NOW COMPLETED 
: NOW ae ae th DATA COLLECTION iNTO A TOTAL INCREMENT BUFFER 


MOV #BUF 0 ,RO 
MOV #BUF1.R1 


2$: MOVB (RO) ,STEMP1 ;GET THE WORD 
CLRB (RQ) + ;CLEAR THE BYTE TABLE ENTRY 
ADD STEMP1,(R1)+ UPDATE THE LIST 
BCC 3$ ;BR_ IF NO OVERFLOW 
TST -(R1) :POSITON POINTER 
MOV #~-1,(R1)+ SET TO 177777 
3$: CMP ABUF 2,R1 :F INISHED? 
BNE 2 :BR IF NOT 
;GET THE AVERAGE OF THE 128 CENTER STATES 
oh BUF 1+64. ,RO :GET INITIAL POINTER 
CLR R2 
4$: ADD (RO)+,R1 GET A VALUE 
BCC 5$ BR IF NO CARRY OVERFLOW 
INC R2 ;UPDATE MSW 
5$: CMP #BUF1+192.,RO  ;FINISHED THE BUFFER 
ne 4$ 7BR IF NOT DONE AVERAGE 
ROR R2 ;ROTATE MSW 
ae R1 INTO LSW 
L 
ROR R2 ROTATE MSW 
aE R1 INTO LSW 
L 
ROR R2 ROTATE MSW 
ROR R1 INTO LSW 
CLC 
ROR R2 ROTATE MSW 
ae R1 INTO LSW 
L 
ROR R2 ROTATE MSW 
ne R1 INTO LSW 
ROR R2 ROTATE MSW 
ROR R1 INTO LSW 


MOV R1,AVGVAL 
JSR PC,CTRLCG 
CMP AVGVAL ,NOMIAL 


SAVE THE AVERAGE 
;TEST FOR “C OR “*G 
sTEST IF AVG. IF > 


BLO DIFLNI ;BR IF NOT 


L 11 
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CZNCCB.P11 31-AUG-79 11:21 A TO D FIELD SITE AND ADJUSTMENT LOOP SEQ 0141 
3093 :READ THE TOTAL INCREMENT BUFFER AND DETERMINE IF ANY VALUES OUT OF RANGE 
3095 044420 013737 041714 045114 READ1: MOV AVGVAL, 101$ :GET AVERAGE 
3096 044426 012700 000001 MOV #1,R 
3097 044432 012701 062002 MOV #BUF 1+2,R1 
3098 044436 012137 045112 1$: MOV (R1)+, 100$ :GET A WORD 
3099 044442 163737 045114 0465112 SUB 101$,100$ ‘REMOVE THE AVERAGE 
3100 044450 1 BPL 2$ 
3101 044452 005137 045112 COM 100$ 
3102 044456 112737 000055 041554 MOVB  #'=,SGNVL1 s INSERT ‘'="* SIGN 
3103 044464 03 BR 3$ 
3104 044466 112737 000053 041554 2: MOVB  #'+,SGNVL1 s INSERT ''+’' SIGN 
3105 044474 013746 045112 3$: MOV 100$,-(SP) 
3106 044500 012746 001750 MOV #1000. ,=(SP) 
3107 044504 004737 036506 JSR PC, $MULT :MULTIPLY NUM-AVG BY 1000. 
3108 044510 012637 045130 MOV (SP) +, 107$ *GET RESULT 
3109 044514 012637 045132 MOV (SP)+,110$ 
3110 044520 013746 045130 MOV 107$,-(SP) :DIVIDE RESULT 
3111 044524 013746 045132 MOV 110$,-(SP) 
3112 530 013746 045114 MOV 101$.-(SP) :DIVIDE AGAIN 
3113 044534 737 036620 JSR PC,$DIV 
3114 044540 102003 BVC 4$ 
3115 044542 HALT sFATAL ERROR DURING CAL. OF ERROR TOLERANCES 
3116 044544 000240 
3117 044546 00024 NOP 
3118 044550 012637 045122 4$: MOV (SP) +,104$ :GET REMAINDER 
3119 044554 012637 045124 MOV (SP) +. 105$ “GET QOUT 
3120 044560 013702 045114 MOV 101$,R2 [ROUND UP IF NEEDED 
3121 044564 006202 ASR R2 
3122 044566 023702 045122 CMP 104$,R2 : COMPARE RESULT 
3123 044572 002402 BLT 5$ 
3124 044574 005237 045124 INC 105$ ;ROUND UP 
3125 044600 000240 5$: NOP 
3158 :DIFLIN ERROR CHECK 
3128 044602 023737 045124 046054 6S: CMP 105$,NORTOL :TEST AGAINST NORMAL 
3129 044610 103446 BLO 50$ ‘BR IF OK 
3130 044612 023737 045124 046060 CMP 105$,NARTOL [TEST AGAINST WIDE/NARROW TOLERANCE 
3131 044620 103416 BLO *BR IF OK 
3132 044622 023737 045124 046064 CMP 105$,NURTOL ‘TEST AGAINST LARGE/SMALL TOLERANCE 
3133 044630 103424 BLO 1$ BR IF 
3134 044632 122737 000053 041554 CMPB ss #'"+, SGNVL1 ‘TEST IF + 
3135 044640 001403 BEQ 7$ 
3136 044642 005237 041720 INC BELOW :COUNT THE LOWER VALUE 
3137 044646 000435 . BR 51$ 
3138 044650 005237 041722 7$: INC ABOVE :COUNT THE HIGHER VALUE 
3139 044654 000432 BR 51$ 
3140 122737 000053 041554 20$:  CMPB  #'+,SGNVL1 sTEST IF + 
3141 044664 001403 BEQ 22$ 
3142 044666 005237 041732 INC NARB :COUNT THE LOWER 
3143 044672 000423 BR 51$ 
3144 044674 005237 041736 22$: INC wIDB : COUNT THE HIGHER 
3145 044700 000420 BR 51$ 
3146 044702 122737 000053 041554 21%:  CMPB  #'+,SGNVL1 sTEST IF + 
3147 044710 001403 BEQ 23$ 


3148 044712 005237 041730 INC NARA ;COUNT THE LOWER 
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3149 044716 000411 BR 51$ 

3150 044720 005237 041734 23$: INC WIDA ;COUNT THE HIGHER 

3151 044724 000406 BR 51$ 

3152 044726 005237 041724 50$: INC NORMAL COUNT THE NORMAL 

3153 044732 122737 000115 052410 CMPB #'M,RUNIT TEST IF FORCE REPORT 
3154 044740 001054 BNE 77$ 

3155 044742 105737 001134 51$: TSTB $AUTOB TEST IF MONITOR ? 

3156 044746 001051 BNE 77$ ;BR IF YES 

3157 ;REPORT THE STATE INFORMATION 

3158 044750 005737 041744 TST FIRST FIRST TYPEOUT ? 

3159 044754 001013 BNE 10$ ;BR_IF YES 

3160 044756 005237 041744 INC FIRST SET FLAG 

3161 044762 104401 041414 TYPE -AVRGO ; TELL THE OPERATOR THE AVERG. 
31 044766 013746 041714 MOV AVGVAL ,~(SP) 

3163 044772 104405 TYPDS 
3 044774 104401 041566 TYPE, RIN 

3165 5000 104401 041100 TYPE, STATE s:ADD HEADER INFO 

3166 045004 010046 10$: MOV RO,-(SP) LOAD STATE # 

3167 5 104403 TYPOS 

3168 045010 003 001 BYTE 3,1 

3169 045012 122737 000115 052410 CMPB #'M,RUNIT TEST IF EXPAND OUTPUT SELECTED 
3170 045020 001005 BNt 11$ 

3171 045022 104401 040745 TYPE, DASH ; INSERT SPACING 

3172 045026 013746 045112 MOV 100$,-(SP) REPORT DIFFERENCE 

3173 045032 104405 TYPDS 

3174 045034 013746 045124 118: MOV 105$,-(SP) 

3175 045040 004737 037234 JSR PC, $SB2D :CONVERT TO ASCII 

3176 045044 012602 MOV (SP)+,R2 :GET RESULT POINTER TO MESSAGE 
3177 045046 062702 000002 ADD #2 ,R2 ADJUST POINTER 

3178 045052 112237 041556 MOVB (R2)+ ,PERTXT 

045056 112237 041557 MOVB (R2)+,PERTXT+1 ;LOAD THE PERCENT REPORT 

3180 04 112237 041561 MOVB (R2)+,PERTXT+3 

eas 045066 104401 041546 TYPE, SGNVAL 

3183 045072 004737 045676 77$: JSR PC, CTRLCG TEST IF CTRL C/G 

3184 045076 005200 INC RO 

3185 045100 022700 000377 CMP #255. RO TEST IF DONE 

3186 045104 001414 BEQ READ BR IF DONE 

ay 045106 000137 044436 JMP 1$ TRY NEXT VALUE 

3189 045112 000000 100$: 0 

3190 045114 000000 101$: 0 

3191 045116 000000 102$: 0 

3192 045120 000000 103$: 0 

3193 045122 000000 104$: QO 

194 045124 000000 105$: 0 

3195 045126 000000 106$: 0 

196 045130 000000 107$: 0O 

3197 045132 000000 110$: QO 

198 045134 000000 111$: 0 
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;NOW ACCOUNT FOR ALL ERRORS 
READ: CLR DIFERR 


1$: 
2s: 


;REPORT 


READ?7: 
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D FIELD SITE AND ADJUSTMENT LOOP 


;CLEAR FLAG 
MOV ABOVE ,R2 :GET NIGH VALUE 
ADD BELOW.R2 TADD LOW 
CMPB R2, OBSCNT sTEST IF EXCEEDS LIMIT <OBEASE ABOVE/BELOw> 
BHI 1$ [BR IF ERRORS 
MOV GET LOW VALUE 
ADD WIDA,R2 :ADD HIGH 
ay Ree TEST IF EXCEEDS LIMIT <LARGE ABOVE/BELOW> 
MOV »R2 GET LOW VALUE 
ADD WIDB,R2 ADD HIGH 
ae aaa TEST IF EXCEEDS LIMIT <SMALL ABOVE/BELOW> 
ove NORCNT,NORMAL ;TEST IF MIN. NORMAL COUNT HAS BEEN HIT 


INC DIFERR :SET ERROR FLAG 

MOV BELOW,-(SP) :GET NO. af STATES BELOW LIMITS 
TYPDS ‘REPORT VALUE 

TYPE ,BELMSG sTYPE MESSAGE 

MOV NARA, R2 *GET NARROW LOW 

ADD NARB,R2 :ADD NARROW HIGH 

MOV R2,-(SP) :GET NO. OF NARROW STATES 
TYPE ,NARMSG ; TYPE MESSAGE 

MOV NORMAL ,- (SP) [GET NORMAL COUNT 

TYPE, | NORMSG zREPORT NORMAL TEXT 

MOV WIDA,R2 :GET WIDE LOW 

ADD WIDB,R2 ;ADD WIDE HIGH 

MOV R2,-(SP) 

TYPDS 

TYPE ,WIDMSG 7 TYPE MESSAGE 

MOV ABOVE ,- (SP) 

TYPDS TYPE NO. OF STATES ABOVE LIMIT ° 
TYPE ,ABOMSG “TYPE MESSAGE 

PASS/FAIL MESSAGE 

TYPE. GAIN :RE-TYPE THE GAIN MESSAGE 
PASMSG :REPORT PASS/FAIL 


1 
MOV #PASMSG ,READ7 
BR $ 
MOV #FAIMSG ,READ7 


;LOAD MESSAGE POINTER 
;LOAD MESSAGE POINTER 


SEQ 0143 
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: TYPE OUT MEMORY RAM AND RAM MEMORY VALUES IF SELECTED 

032777 004000 133556 READXX: BI #11 ,aSWR TEST If THIS 1S WANTED 
DIFEX1 ‘TEST IF BLASTING MODE 
4$ ‘BR IF NOT 


#ROMVAL , RO ;LOAD INITIAL POINTER 
PC. TYPE OUT LINE 

MROMVAL+100,RO ;TEST IF ALL DONE 
1$ ;BR IF NOT 


;LOAD WIDE COUNTER 


T 
(RQ) ;GET A BYTE 


+,R2 
#177400,R2 sMASK OFF HIGHER BITS 
R2,-(SP) ZLOAD VALUE 


sFINISHED ? 
sEXIT 


DIFEX1 
aDIFEXO EXIT THIS CRAZYNESS 
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A TO D FIELD SITE AND ADJUSTMENT LOOP 


:DIF LIN SUBROUTINE LIST MODE DATA COLLECTOR 


012777 134254 LISTDT: MOV 7 aSFR 
5077 CLR @OF F 


#0,aCSR 


#2000,PRIME1 
3$ 


#2000,aCSR 
000002 : ATESTZ,@SFR 
052777 #B1T0,aCSR 


105777 : acsR 

100375 1$ 
#BUF 0 ,RO 
R2 


#8. ,R3 
(RO) ,R1 
(RO) + 
#177400,R1 
R1,R2 


;CLEAR THE DEVICE 
Seats REG. 


;TEST GAIN BIT 
BR IF CLEARED 
SELECT GAIN = 2 


7SET 2 PULSES 


ENABLE THE DEVICE 


;WAIT FOR IDLE 
;LOAD POINTER TO NEW DATA 
;LOAD COUNTER 


; UPDATE TOTAL 
FINISHED ? 
BR IF NOT 


TS PC sEXIT 
; SUBROUTINE TO ot. Ha TRUE EDGE aft ZERO DATA 


177777 STDATO: MOV 
045474 1$: : “4 -LISTDT 


2$ 
045664 10$ 


vce FLAG 
[GET DAT 


; CHECK DATA 
BR IF ZERO 
;CLEAR ALREADY NON-ZERO DATA FLAG 


BR 1$ 
;DATA WAS ae - CHECK IF WE STARTED ” he DATA REGION 
2$: TS 10$ :TEST F 


BNE 1$ ;BR IF NOT A GOOD TIME TO EXIT 
2 oye, NOW GONE TO A GOOD ZERO DATA REGION 


;BYEBYE 


045664 


SEQ 0145 
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CZNCCB.P11 31-AUG-79 11:21 A TO D FIELD SITE AND ADJUSTMENT LOOP SEQ 0146 
3328 face. iste TO TEST IF OPERATOR TYPED CTRL C OR G 
3329 045676 105777 133242 tTRLCG: a$TKS : INPUT FLAG 
3330 045702 100033 a 2$ ‘BR IF NON 
3331 045704 017737 132226 045774 MOV @$TKB,CTRCHA GET CHARACTER 
3332 045712 042737 177600 045774 BIC #177600,CTRCHA =MASK OFF BITS 
3333 045720 022737 000003 045774 CMP #3, CTRCHA ‘TEST IF CTRL C 
3334 045726 001014 BNE 1$ ‘BR IF NOT “C 
3335 045730 052777 000400 134020 BIS WENDDMA,@SFR =: STOP. NPR'S 
33% 045736 000240 NOP 
3337 045740 000240 NOP 
3338 045742 000240 NOP 
3339 045744 052777 004000 134004 BIS WCLRALL.@SFR —«; CLEAR THE DEVICE 
3340 045752 005726 TST (SP) + :CLEAN S _— 

3341 045754 000137 002014 JMP RTRT RE-STAR 
3342 045760 022737 000007 045774 1$: CMP #7, CTRCHA ;TEST IF T TRL G 
3343 045766 001001 BNE 2$ IF NOT 
3344 045770 104406 GTSwR “GET SWR VALUE 
3345 045772 000207 2$: RTS PC TEXIT 
3346 045774 000000 CTRCHA: 0 
3347 045776 177777 PRIME: = 
3348 046000 177400 PRIMEO: 177400 
3349 046002 PRIME1: 
3350 046004 000000 DIFEXO: 0 
3352 ; SUBROUTINE TO matse a ERROR LIMITS FOR DIFLIN 
3353 046006 012500 LIMITS: MOV (R5)+,RO :GET 1ST ARG. 
3354 046010 005737 050024 TST wF MODE ‘TEST IF ON TESTER 
3355 046014 001402 BEQ 1$ ‘BR IF NOT 
3356 046016 012500 MOV (R5)+,RO ;GET TESTER LIMITS 
3357 046020 000403 BR 2$ 
3358 046022 005725 1$: TST (R5)+ :BUMP ADDRESS 
3359 046024 012701 046052 2s: MOV ANORCNT ,R1 GET POINTER 
3362 046030 012021 MOV (RO) +, (R1)+ ‘GET VALUE 

(1) 046032 012021 MOV (RO)+,(R1)+ GET VALUE 

(1) 046034 012021 MOV (RO) +. (R1)+ *GET VALUE 

(1) 046036 012021 MOV (RO) +,(R1)+ :GET VALUE 

(1) 046040 012021 MOV (RO)+.(R1)+ [GET VALUE 

(1) 046042 012021 MOV (RO) +,(R1)+ :GET VALUE 

(1) 046044 012021 MOV (RO) +, (R1)+ *GET VALUE 

(1) 046046 012021 MOV (RO) +. (R1)+ ‘GET VALUE 
3363 046050 000205 RTS R5 “EXIT 


CZNCCB 


NCV11 


C2NCCB.P11 


DIAGNOSTIC 
31-AUG-79 11:21 


MACY11 vy yy 


31-AUG-79 


E 12 
13:10 PAGE 99 


TO D FIELD SITE AND ADJUSTMENT LOOP 
ACTUAL VALUES FOR DIF LIN ERROR TOLERANCE 


NORCNT: .WORD 
NORTOL: .WORD 
NARCNT: .WORD 
NARTOL: .WORD 
NURCNT: .WORD 
NURTOL: .WORD 
OBSCNT: .WORD 
OBSTOL: .WORD 
:DIFLIN ERROR 
GILIMO: .WORD 
. WORD 
. WORD 
. WORD 
;DIFLIN ERROR 
GILIM1: .WORD 
. WORD 
. WORD 
. WORD 
;DIFLIN ERROR 
G2LIMO: .WORD 
. WORD 
. WORD 
. WORD 


;DIFLIN ERROR 
G2LIM1: .WORD 
- WORD 
. WORD 
. WORD 


TOLERANCE 
216.,25. 


ee 


8.,121. 
0.,377 


TOLERANCE 


qs. 


a 
0. 


101 
me 


“54 
Q1. 
77 


;"NORMAL'' MIN COUNT VALUE 
;" NORMAL'' TOLERANCE VALUE 


; NARROW/WIDE"" MAX MAX. COUNT VALUE 
:" NARROW/WIDE'' TOLERANCE VALUE 
*LARGE/SMALL"* MAX. COUNT VALUE 


LARGE /SMALL"" TOLERANCE VALUE 
‘'OBESITY'' MAX. COUNT VALUE 
‘"OBESITY'' TOLERANCE VALUE 


GAIN = 1 USER 


3226 MIN. CGUNT, =<2.0% 
720 MAX. COUNT, =<5.0% 
38 MAX. COUNT, =<10.% 
:0 MAX COUNT, >10% 


GAIN = 1 OPTION AREA 


3226 MIN COUNT, =<1.9% 
720 MAX. COUNT, =<4.8% 
78 MAX COUNT, =<9.5% 
30 MAX COUNT, >9.5% 


GAIN = 2 USER 

7216. MIN COUNT, =<2.4% 
30. an» COUNT, =<6.0% 

38. MAX COUNT, =<12.0% 

70 MAX COUNT, >12.0% 

GAIN = 2 OPTION AREA 
3216. MIN COUNT, =<2.0% 

: 30. — COUNT, =<5.0% 

38. MAX COUNT, =<10.0% 


[0 MAX COUNT, >10.0% 


SEQ 0147 


re 
CZNCCB NCV11 _ DIAGNOSTIC MACY11 30G(1063) 31-AUG-79 13:10 PAGE 100 
CZNCCB.P11 31-AUG-79 11:21 A T0 D FIELD SITE AND ADJUSTMENT LOOP SEQ 0148 


3406 046172 01 2 LISTO: .BYTE 15,12 
3407 -ASCII /1 = INITIAL AQ17 ADJUSTMENT USING THE ANALOG TESTER/ 


15,12 
/B = BLASTING OF THE LINEARITY CORRECTION PROM/ 


020116 


. 18.12 
047503 . /C = CONTROL PROGRAM PROM BLASTING/ 


15,12 
/L = LOGIC TEST OF M8026 AND M8036/ 


15.12 
/D = DIFFERENTIAL LINEARITY OF THE AQ17/ 


15,12 
/F = FINAL ACCEPTANCE (L AND D)/ 


15,12 
/A& = ADJUSTMENT OF AQ17 AT FIELD SITE/ 


043040 
051440 052111 





CZNCCB NCV11 _ DIAGNOSTIC 
CZ2NCCB.P7 1 31-AUG-79 11 


3420 015 
3421 


MACY11 30G6(1063) 31=-AUG=79 13:10 PAGE 100-1 
A TO D FIELD SITE AND ADJUSTMENT LOOP SEQ 0149 


-BYTE 15,12 
ASCII /0 = OPERATE WITH TTY AT ADDRESS NNNNNN/ 


RRVARS 

NNSNOEF 
SNS _ 
——nMmor 


=k 
ao 


047116 


ele 


051440 SOFTWARE SWITCH REGISTER CHANGE / 


15,12 
/H = HELP THE OPERATOR AND RETYPE THIS LIST/ 


052123 


-BYTE 5.1 
eASCIZ 7.7 


EVEN 





CZNCCB 


NCV11 


CZNCCB.P11 


DIAGNOSTIC 
31-AUG=79 11:21 


052777 


052156 
006035 
132646 
045774 


132644 


001000 
132630 


000 


000040 


MACY11 ry yy 


132650 


132634 


132620 


POTIME: RESET 


TYPE, PRIM2 
MOV #6035 ,aVTCHAR 
CLR avTyYPOSs 
CLR CTRCHA 
: ERASE THE SCREEN MAP 
i$: STB. aVTCSR 
SPL 1$ 
BIS #8119, avTcCsR 
2$: TSTB ~— avVTCSR 
BPL 2$ 
BIC #B1T9,aVTCSR 
:NOW LOAD THE REF. PATTERN INTO THE 
MOV #10621,R1 
MOV #3740,R0 
3$: JSR PC .DISPLY 
INC RO 
CMP #4000,RO 
BNE 3$ 
MOV #0.RO 
4$: JSR PC-DISPLY 
INC RO 
CMP #40,RO 
BNE 4$ 
MOV #7740,R0 
5$: JSR PC ,DISPLY 
INC RO 
CMP #10000,RO 
BNE 5$ 
:POSITION THE MAP AND DISPLAY 
MOV #5. aVTCSR 
MOV #60, aVTINT 
MOV #663, avTINT 
BIS #BITB,aVTCSR 


31=AUG=79 


H 12 
13:10 PAGE 101 
FIELD SITE AND ADJUSTMENT LOOP 


;CLEAR THE WORLD 


+ TELL OPERATOR ABOUT CABLES 
;HOME AND ERASE Pe nats 
[CLEAR THE MAP P.C, 

ZCLEAR TTY CHARACTER 


;WAIT FOR READY 


“CLEAR THE MAP 
‘WAIT FOR READY AGAIN 


ae ERASE BIT 
;LOAD THE PIXEL VALUE 


;LOAD THE PIXEL ADDRESS 
;LOAD THE DATA 


;UPDATE THE ADDRESS 
FINISHED ? 
[BR UNTIL DONE 


;LOAD PIXEL ADDRESS 

;LOAD THE DATA 

;UPDATE THE PIXEL ADDRESS 
sTEST IF D 


;BR IF DONE THE VERTICAL 


;LOAD PIXEL a 

;LOAD THE DAT 

[UPDATE THE PIXEL ADDRESS 
TEST IF DONE 

[BR IF DONE 


;LOAD ORGIN VALUE 
;LOAD LUT 0 

;LOAD LUT 1 
;ENABLE THE MAP 


SEQ 6150 


CZNCCB NCV11 
CZNCCB.P11 





DIAGNOSTIC 


31-AUG-79 11:21 


004537 047336 
050042 
001730 
C00 000 
004537 047336 
050226 
001732 
1 000 
004537 047336 
050412 
1734 
002 000 
004537 047336 
050576 
1736 
003 000 


MACY11 30G6(1063) 
A TO D FIELD SITE AND ADJUSTMENT LOOP 


31=-AUG-79 


I 1 
13:10 PAGE 102 


ae THE CAMERA CHANNELS 


SAMC 
; CAMERA Oe .. INPUT 
R5,ADJCAM ; 

ADMSGO ;CAM 0 MESSAGE 

DACO ;DAC_ ADDRESS 

-BYTE 0,0 ;CAMERA 0, X AXIS 
DO CAMERA 1, X INPUT 

SR RS ,ADJCAM 

ADMSG2 CAM 1, X MESSAGE 

DAC1 [DAC ADDRESS 

OYE 1,0 CAMERA 1, X AXIS 
DO CAMERA 2, X INPUT 

JSR RS ,ADJCAM 

ADMSG4 3CAM 2, X MESSAGE 

DAC2 [DAC ADDRESS 

-BYT 2,0 7 CAMERA 2, X AXIS 
DO CAMERA 3, X INPUT 

JSR R5,ADJCAM 

ADMSG6 CAM 3, X MESSAGE 

DAC3 [DAC ADDRESS 

-BY AMERA 3, X AXIS 


R5,ADJCAM 


0,1 
INPUT 
R5,ADJCAM 


1,1 
NPUT 
R5 ,ADJCAM 


2,1 
INPUT 
R5,ADJCAM 


3,1 
RBE GO 


TE 3,0 sc 
;NOW SAMPLE “ Y CAMERA CHANNELS 
:bO cna A INPUT 


;CAM 0 Y MESSAGE 
;DAC_ ADDRESS 
CAMERA 0, Y AXIS 


3CAM 1, Y MESSAGE 
[DAC ADDRESS 
;CAMERA 1, Y AXIS 


CAM 2, Y MESSAGE 
“DAC ADDRESS 
7 CAMERA 2, Y AXIS 


AM 3, Y MESSAGE 


sc 
;DAC ADDRESS 


CAMERA 3 Y AXIS 


SEQ 0151 


CZNCCB 


NCV11 


CZNCCB.P11 


DIAGNOSTIC 


31-AUG- 


052777 


105777 
100375 


012777 


79 11:21 


132342 
012000 
132326 
132320 


132154 


004000 
050014 
050016 


060000 


MACY11 


132340 


000410 


000366 


000344 


045774 


132154 


306( 1063) 


31-AUG-79 


J. 
13:10 PAGE 103 


A TO D FIELD SITE AND ADJUSTMENT LOOP 
;REPORT THE MESSAGE FIRST 


ADJCAM: MOV 
3$: 


1$: TST 


2$: MOV 


(R5)+,RO0 
gro 


3 
#12000, ,aVTCxY 
@aVTCHAR 


1$ 
(RO) +, @VTCHAR 
(RO) 

1$ 


a(R5)+,DACADR 
(R5)+, CAMVAL 


#2315, — 
PC, SAMDAT 


me 
#4000, @DACADR 
PC, SAMDAT 


R1,VAi1 
PC,FIXLIN 
#5463, a 
PC, SAMDAT 
R1,VAL2 

PC FIXLIN 
PC,CTRLCG 
teat 


CTRCHA 
R5 


GET ASCII POINTER 
;WAIT FOR READY 


sPOSITION THE CAHRACTERS 
;WAIT FOR CHAR. READY 


;LOAD THE CHAR. 
sTEST IF TERM. 
;BR IF NOT 


SAVE ADDRESS 
SAVE CAMERA DATA 


;PRESET DAC TO = GAIN INPUT 


;SAVE RESULTS 

sPOSITION THE CROSS HAIR LINE 
;PRESET DAC TO ret 

;SAMPLE THE DAT 

;SAVE AVERAGE RESUL TS 
“POSITION THE CROSS HAIR LINE 
;PRESET DAC TO + GAIN INPUT 
;SAMPLE THE DATA 

[SAVE AVERAGE RESULTS 
sPOSITION THE CROSS HAIR LINE 
[TEST FOR CTRL C/G 

CHECK IF CHARACTER WAS A \C\ 
;BR IF NOT 

;CLEAR CHAR 

sEXIT 


;COLLECT 64 SAMPLES FROM THE SELECTED CAMERA 
3R1 CONTAINS THE AVERAGE 


SAMDAT: MOV 
MOV 
1$: CLR 


23: TSTB 
BP 


ABUFO,RO 
#BUF1,R1 
(RO) + 

RO,R1 

1$ 
#-100,awCR 
#BUF 0, @BAR 
CAMVAL , aC SRHB 
ATESTZ,ASFR 
#BITO,aCSR 
acsrR 

2$ 
#CLRALL.@SFR 
STEMP1 
$STEMP2 

R1 

#BUFO,RO 


CLEAR THE pare 
;F INI SHED 
SBR 


= LOAD WORD COUNT 
;LOAD ADDRESS 
[SELECT THE CAMERA 
[SET TEST 2 ENABLE 
ENABLE NCV11 


;WAIT UNTIL DONE 


CLEAR THE DEVICE 


;LOAD BUFFER POINTER 


K 1 
CZNCCB NCV11 _ DIAGNOSTIC MACY11 30G(1063) 31-AUG=79 13:10 PAGE 103-1 


CZNCCB.P11 31=AUG-79 17:21 A TO D FIELD SITE AND ADJUSTMENT LOOP SEQ 0153 
3575 047620 105737 050027 TSTB CAMVAL +1 A . KX OR Y DATA 
3576 047624 001413 BEQ 5$ ‘BR 
3577 047626 012037 050014 3$: MOV (RO) +,$TEMP1 GET THe DAT 
3578 047632 113737 050015 050016 MOVB  $TEMP1+1,$TEMP2 :GET HIGH BYTE DATA 
3579 047640 063701 050016 ADD STEMP2,Ri ‘UPDATE AVERAGE 
3580 047644 022700 060200 CMP WBUFO+200,RO § : FINISHED DATA ? 
3581 047650 001366 BNE 3$ ‘BR IF NOT 
3582 047652 000412 BR 10$ 
3583 047654 012037 050014 5$: MOV (RO)+,$TEMP1 :GET DATA 
3584 047660 113737 050014 050016 MOVB  $TEMP1,$TEMP2 
3585 047666 063701 050016 ADD $TEMP2.R1 :UPDATE THE AVERAGE 
3586 047672 022700 060200 CMP #BUFO+200,RO FINISHED DATA ? 
3587 047676 001366 BNE 5$ ‘BR IF NOT 
3588 047700 000240 10$: NOP 
3589 047702 000240 NOP 
3593 047704 006201 ASR Ri ZAVERAGE THE DATA 

(1) 047706 000240 NOP 
(1) 047710 006201 ASR R1 ;AVERAGE THE DATA 
(1) 047712 000240 NOP 
(1) 047714 006201 ASR R1 ZAVERAGE THE DATA 
(1) 047716 000240 
(1) 006201 ASR R1 sAVERAGE THE DATA 
(1) 047722 000240 NOP 
(1) 0647724 006201 ASR R1 sAVERAGE THE DATA 
(1) 047726 000240 NOP 
(1) 047730 006201 ASR R1 ;AVERAGE THE DATA 
(1) 047732 000240 NOP 
3594 000207 RTS Pc SEXIT 
3596 ; SUBROUTINE TO LOAD X OR Y CROSSHAIRS 
3597 047736 006201 FIXLIN: ASR R1 
3598 047740 000240 NOP 
3599 047742 000240 NOP 
3600 047744 000240 NOP 
3601 047746 062701 000100 ADD #100,R1 
3602 047752 110177 131734 MOVB _—R1, aVTXPOS 
3603 047756 000207 RTS PC 
3605 ; SUBROUT INE TO LOAD PIXEL DATA 
047760 042777 000400 131730 DISPLY: BIC #400, aVTCSR :DISABLE MAP 
3607 047766 010077 131726 MOV RO, aVTMAP LOAD MAP PC 
3608 047772 105777 131720 1$: TSTB ~— aVFCSR “WAIT FOR MAP READY 
3609 047776 10037 BPL 1$ 
3610 050000 010177 131716 MOV R1,aVTPX ;LOAD PIXEL DATA 
311 050004 052777 000400 131704 BIS #400, aVTCSR s ENABLE MAP 
3612 050012 000207 RTS PC 
3614 050014 000000 STEMP1: 0 
3615 050016 000000 STEMP2: 0 
3616 050020 000000 DACADR: 0 
3617 050022 000000 RUNDIF: 0 
3618 050024 000000 WFMODE: 0 sWF OPTION AREA FLAG 
3619 050026 000000 CAMVAL: 0 
3620 050030 000000 CURENT: 0 
3621 050032 000000 AGAN: 0 
3622 050034 000000 VALO: 0 


L 1 
C2NCCB NCV11 _ DIAGNOSTIC MACY11 306(1063) 31-AUG=79 13:10 PAGE 103-2 
CZNCCB.P11 31-AUG-79 11:21 A TO D FIELD SITE AND ADJUSTMENT LOOP SEQ 0154 


VAL1: 0 
VAL2: 0 
ons 040522 ADMSGO: .ASCII /CAMERA 00/ 
.BYTE 15,12 
051525 -ASCII /ADJUST ROO OFF SET/ 


052105 
«BYTE 15,12 


052123 “ASCIZ /ADJUST 


ADMSG1: .ASCII /CAMERA 


-BYTE 15,12 
051525 eASCII = /ADJUST OFF SET/ 
020063 
020131 


052105 

-BYTE 15,12 
052123 eASCIZ /ADJUST 
043040 
043440 


040522 : .ASCII /CAMERA 


-BYTE 15,12 
051525 ASCII = /ADJUST OFF SET/ 


052105 

BYTE 15,12 
052123 “ASCIZ /ADJUST 
043040 
043440 


040522 : .ASCII /CAMERA 


-BYTE 15,12 
051525 eASCII /ADJUST OFF SET/ 
020064 


020131 
052105 

Te 2 
052123 eASCIZ = /ADJUST 
043040 
043440 


040522 ADMSG4: .ASCII /CAMERA 


-BYTE 15,12 
go 1342 eASCII = /ADJUST OF FSET/ 


020061 
020122 020130 





CZNCCB 

CZN 
3648 
3649 


3650 


3651 
3652 


3653 
3654 


3663 
3664 


3665 
3666 
3667 


3668 
3669 


NCVi1 
CCB.P11 


043117 


051054 


DIAGNOSTIC 
31-AUG=79 11:21 


051506 

Qle 
052512 
031062 
054040 


000116 
042515 


M 12 
MACY11 30G(1063) 31-AUG=79 13:10 PAGE 103-3 
A TO D FIELD SITE AND ADJUSTMENT LOOP 


052105 
052123 


051525 
020065 
020131 
052105 


052123 


051525 
020062 
020130 
052105 


052123 


-BYTE 
-ASCIZ 


ADMSGS: .ASCII 


-BYTE 
-ASCII 


-BYTE 
-ASCIZ 


ADMSG6: .ASCII 


-BYTE 
-ASCII 


-BYTE 
-ASCIZ 


ADMSG7: .ASCIi 


-BYTE 
-ASCII 


-BYTE 
-ASCIZ 


PRIMO: .BYTE 
-ASCII 


-BYTE 
-ASCII 


15,12 
/ADJUST 


/ CAMERA 
15,12 
/ADJUST 
15,12 
ADJUST 
/ CAMERA 
15,12 
/ADJUST 
15,12 
/ADJUST 
/ CAMERA 


15,12 
ADJUST 


R22 


02/ 


R15 


R18 


03/ 


R12 


R21 


03/ 


R16 


R17 


FOR X GAIN/ 


FOR Y OFFSET/ 


FOR Y GAIN/ 


FOR X OFFSET/ 


FOR X GAIN/ 


FOR Y OFFSET/ 


FOR Y GAIN/ 


15,12 
/THE SELF-TEST CONNECTOR MUST BE INSTALLED ON A0Q17/ 


SEQ 0155 


.1 
HE SWITCH ON AQ17 MUST BE IN ‘MAINT.’ POSITION (TOWARD THE 1/0 CONNECT 


N 1 
CZNCCB NCV11 _ DIAGNOSTIC MACY11 30G(1063) 31-AUG=79 13:10 PAGE 103-4 
CZNCCB.P11 31-AUG-79 11:21 A TO D FIELD SITE AND ADJUSTMENT LOOP SEQ 0156 


— 
PE PAERVVASIE 


aunwms 


2.0 
2 


15 
15 
/THE SELF-TEST CONNECTOR MUST BE REMOVED FROM THE A0Q17/ 


: 
1 
E 


4 


15,12 
\THE SWITCH ON AO17 MUST BE IN ‘OPER."* POSITION (AWAY FROM THE 1/0 CONNE 


000 -BYTE 15,12,0 
Ope lee PRIMS: .ASCII /INSERT RAM-PAK CABLE INTO THE SOCKET ON THE AQ17/ 


24 
033461 


RAM~PAK SWITCHES TO ‘'IN'', ‘NORM’’ AND ‘‘OFF''/ 


052122 -ASCII RT BLANK ROM INTO ROM BLASTER SOCKET/ 





CZNCCB NCV1i 
C2NCCB.P41 


3681 
3682 


3683 
3684 


3685 


3688 
3689 


3690 
3691 


3692 


051544 


052174 


DIAGNOSTIC 
11:27 


31-AUG-79 


3 
052515 


040 
051516 


8 13 
MACY’? 306(1063) 31-AuG-79 13:10 PAGE 103-5 
A170 D FIELD SITE AND ADJUSTMENT LOOP 


041440 
052103 


020067 
042514 


PRIM1: 


PRIM2: 


-BYTE 
ASCII 


-BYTE 
ASCII 


-BYTE 
ASCII 


BYTE 


"BYTE 
"ASCII 


15,12 
\PLEASE DEPRESS THE ‘‘I/0°' AND ‘EXECUTE’ BUTTONS TOGETHER\ 


2 


ay 
HE 4 PROCESS LEDS WILL LIGHT WHEN DONE CORRECTLY\ 


SE REMOVE RAM-PAK CABLE/ 


INSERT THE BLASTED ROM INTO SOCKET ON AQ17 MODULE/ 


15,12 
/DEPRESS THE ‘'CR'’ KEY WHEN READY/ 


"" CABLE MUST BE CONNECTED TO THE AQ17 CONNECTOR/ 


SEQ 0157 


CZNCCB 


NCV11 


CZNCCB.P11 


3695 
3696 
3697 


DIAGNOSTIC 


31-AUG-79 


020105 
041505 


11:21 


MACY11 30G6(1063) 


047111 
052123 
020124 
044524 


031457 


PRIM4: .BYTE 
ASCII 
-BYTE 
EVEN 
FATALO: .BYTE 
-ASCII 
RUNIT: .ASCIZ 
RUNITA: .ASCIZ 
-BYTE 
MSGMEM: .BYTE 
-ASCIZ 
MSGK: -ASCIZ 
WARNO: .BYTE 
-ASCIZ 
ESCP: BYTE 
KFO: -ASCII 
FMO: ASCII 
DIO: ASCII 


31=AUG=79 
A TO D FIELD SITE AND ADJUSTMENT LOOP 


C1 
13:10 PAGE 103-6 
SEQ 0158 


"* CABLE MUST BE CONNECTED TO THE M8036 CONNECTOR/ 


15,12.,0 


15,12,7 ;'RUNIT'’ MUST BE ON A WORD BOUNDRY 
/FATAL BUS TRAP WHEN PERFORMING TEST ''/ 


/C'" AT LOCATION /_ ;'RUNIT'' MUST BE A WORD BOUNDRY 


<15><12>/PROGRAM RESTART ING/ ;' RUNIT'' MUST BE A WORD BOUNDRY 


18, 12,7 4.0 
15,12 
/RUNNING WITH / 


/ K OF MEMORY/<15><12> 

15,12,7 

/OCTAL ADDRESS OF TERMINAL = / 
33,0 

\KF 2/2\ 

15 


0 
\FM30\ 
15,0 
\D10/37\ 


D1 
CZNCCB NCV11 _ DIAGNOSTIC MACY11 306(1063) 31-AUG-79 13:10 PAGE 103-7 
CZNCCB.P11 31-AUG=79 11:21 A TO D FIELD SITE AND ADJUSTMENT LOOP SEQ 0159 


aT 5.8 

-BYTE  60,60,60,40 
-BYTE  60,60,60,40 
-BYTE  60,60,60,40 
-BYTE  60,60,60,40 
-BYTE  60,60,60,40 
-BYTE  60,60,60,40 
-BYTE  60,60,60,40 
-BYTE  60,60,60,40 
-BYTE  60,60,60,40 
-BYTE  60,60,60,40 
-BYTE  60,60,60,40 
-BYTE  60,60,60,40 
-BYTE  60,60,60,40 
-BYTE  60,60,60,40 
-BYTE  60,60,60,40 
-BYTE  60,60,60,40 
-BYTE  60,60,60,40 
-BYTE  60,60,60,40 
-BYTE  60,60,60,40 
-BYTE  60,60,60,40 
-BYTE  60,60,60,40 
-BYTE  60,60,60,40 
-BYTE  60,60,60,40 
-BYTE  60,60,60,40 
-BYTE  60,60,60,40 
-BYTE  60,60,60,40 
-BYTE  60,60,60,40 


DIDATA: 


(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(7) 
(1) 


052762 





CZNCCB 


NCV11 


CZNCCB.P11 


BLE LLL LL 
ee ae nd od 2 od 
ee a ee a ee 


052763 
052766 


060000 
062000 
064000 


DIAGNOST 
31-AUG-79 


IC 
11:21 


060 
000 
030115 
000 
000103 
027460 
000 


000 





MACY11 vg ty y: 


060 
060 
060 
060 
060 


031457 


033463 


CMO: 


cco: 
PGO: 


Z7PO: 


31-AUG-79 13:10 PAGE 103-8 
TO D FIELD SITE AND ADJUSTMENT LOOP 


-BYTE 
-BYTE 
-BYTE 
-BYTE 
-BYTE 


;BUFFER AREA 


BUF 0: 
BUF 1: 
BUF 2: 


- =60000 
-BLKW 


-BLKW 
NOP 


- END 


60,60,60,40 
60,60,60,40 
60,60,60,40 
60,60,60,40 
60,60,60,40 
3,0 
\CMO0/37\ 
15,0 

/CC/ 
\PGO/37\ 
15,0 

/IP/ 

15,0 


SEQ 0160 


F 1 
CZNCCB NCV11 _ DIAGNOSTIC MACY11 30G(1063) 31-AUG=79 13:10 PAGE 104 


CZNCCB.P11 31-AUG-79 11:21 


ABASE = 172760 6a 32 
041632 3239 


2772 
3138* 
32 


3481 
29174 


36604 
310* 


143* 


CROSS REFERENCE TABLE == USER SYMBOLS 


98 99 100 101 102 


3203 3237 
92 93 94 


3486 


956 
973 


35214 


964 
981 


965 
982 


966 
991 


968 
1005 


SEQ 0161 





G1 
CZNCCB NCV11 _ DIAGNOSTIC MACY11 30G(1063) 31-AUG=79 13:10 PAGE 104-1 
CZNCCB.P11 31-AUG-79 11:21 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0162 


112 113 
2934 2999 3162 


491 517* 53 617* 622 641* 
795* 1104 1129* 1159* 
1331* 1510* 1548* 1768* 
1870* 1924* 1991*  2056* 


——S 


ins) 
Oono-—-—- - Oo" OO Oe Oe SS 


No--— 
OW 


. 
See yO EE NORE E EERE 


— 
—s 
No 





H 1 
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CZNCCB.P11 31-AUG-79 11:21 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0163 

BIT15 = 100000 134 = =61141 1170 117 

BIT2 = 000004 134 129 1408 1423 1477 1490 1513 1533 1612 1613 1615 1616 1618 
1619 1621 1622 1624 162 1627 1628 2460 

BITS = 000010 134 128 2473 

BITS = 000020 134 433 563 565 574 597 608 618 631 642 650 660 685 
691 716 723 738 750 756 797 801 1374 1408 1423 1434 1448 
1458 1477 1490 1513 1533 1612 1613 1615 1616 1618 1619 1621 1622 
1624 1625 1627 1628 1691 1770 1783 1806 1829 1851 1871 1891 2111 
2222 2480 3052 

BITS = 000040 134 1513 1533 

BIT6é = 000100 134 774 1198 2428 

BIT? = 000200 134 313 88 400 409 574 581 705 738 801 826 845 850 

: 1141 1150 1170 1179 1497 1533 2441 

BIT8 = 000400 134 127 621 663 1316 1851 1891 2388 2393 2410 2415 2454 3471 

BIT9 = 001000 134 1293 1360 1871 1891 2399 2404 2410 2415 2467 3442 3445 

BLAST 042272 205 27304 

BLICNT 042130 2672* 2676 2679* 2683* 27034 

BPTVEC= 14 134 

BRLEV 002002 1184 167* 1542 1566 

BTALK 042020 233 26814 

BUF 0 0000 1031* 1034 1053 1070 1072 1079 1084 1116 1122 1265 1267* 1277 1286 
1288* 1298 131 1312* 1320 1331 1333* 1343 1353 1355* 1365 1372* 1373 
1385 1407 1411* 14128 141 1433 1441" 1442* 1464 1476 1484* 1502 1512 
1520* 1550 1553* 1638 1643* 1644* 1649 1654 1659 1669 1675* 1677 1 
1692* 1693* 1699 1702 1706 1717* = 17 1733* 1735 1755* 1757 1769 1777* 
1778* 1789 1909 1913 1942 1969 978 982 2008 2036 2043 2047 2056 
2071 2090 2137 2185 2226* 2228 2243 2498 2522 2681 3003 048 


BUF 1 062000 1081 1105 2917 3063 3074 3080 3097 3556 37354 

BUF 2 064 3005 3071 37364 

BUSTRP 003212 152 2 

CALRPT 037614 2419 24278 

CAMUNP 040360 2431 2437 2444 2450 2457 2463 2470 2476 2483 25484 

CAMVAL 050026 3532* 3563 3575 36194 

CAMOG1 040442 2378 2432 25654 

C 040444 2383 2438 25664 

CAMOTW 040503 2436 25774 

CAMOTX 040464 2430 25754 

CAM1G1 040446 2389 2445 25674 

CAM1G2 50 2394 2451 25684 

CAMI1TW 040541 2449 25814 

CAMITX 040522 2443 25794 

CAM2G1 040452 2400 2458 25694 

CAM2G2 040454 2405 24 25704 

CAM2TW 040577 2462 25854 

CAM2TX 040560 2456 25834 

CAM3G1 040456 2411 2471 25714 

CAM3G2 0460 2416 2477 25724 

CAM3TW 040635 2475 25894 

CAM3TX 040616 2469 25874 

cco 053021 2780 2813 2834 37244 

CKSWR = 104407 2340 2345 23654 

CKTSWR 040062 2427 2433 2440 2446 2453 2459 2466 2472 2479 24878 

CLRALL= 004000 1264 408 465 476 489 502 514 546 550 552 558 583 593 
614 638 656 670 681 704 712 746 780 786 792 818 837 


848 875 880 885 890 895 900 908 913 919 925 931 936 


I 1 
CZNCCB NCV11 DINee TS MACY11 30G(1063) 31-AUG-79 13:10 PAGE 104-3 


CZNCCB.P11 31-AUG=79 11:21 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0164 
956 957 58 960 961 2 964 965 966 968 969 970 972 
973 74 976 977 978 980 981 982 98 1013 103 1046 
1078 110 1126 1149 1156 1185 121 1218 1239 1263 1284 1306 1327 
1351 1371 1406 1430 1473 1495 1509 1537 1545 1587 1612 1613 1615 
1616 161 1619 1621 1622 1624 625 1627 16 1637 1668 1685 1711 
1727 1747 1766 1801 1824 1847 1867 1887 1921 1989 2054 2109 2153 
2192 2218 2250 3047 3283 3339 3570 
CLRWCO= 040000 1254 737 
CMO 053011 2778 37228 
COMP 041170 26094 840 
CONROM 043244 2807 2829 28854 
CONVRT 040104 2376 2381 2387 2392 2398 2403 2409 2414 24954 
CPUDLO 002006 1214 689 721 754 
CPUDL1 002010 1224 820 839 
CPUDL2 002012 1234 1930 1996 2060 
CR = 000015 134 = 2341 
CRLF = 2 134 149 2341 
CSR 001746 984 153 353 385* 386 398* 401 407* 410 417* 419* 420 424* 
427 519* 542 563* 566* 567 575 582* 584 597* 598* 609 618* 
619* 632 642* 643* 651 660* 661* 673* 685* 686* 693 706 716* 
717* 725 739 750* 751% 758 774% 779 785* 797* 798* 8 875* 
880* 885* 890* 895* 900* 908* 913* 919s 925* 931* 936* 956* 957* 
958* 960* 961* 962* 964* 965* 966* 968* 969* 970* 972s 973* 974* 
976* 977* 978* 980* 981* 982* 987* 989x 1001* 1003* 1015* 1017* 1036* 
1086* 1093 1131* 1132* 1142 1151 1161* 1171 1180 1198* 1207* 1212* 
1225* 1226 1246* 1247* 1268* 1289% 1313% 1334* 1356* 1374* 1376% 1408* 1410* 
1420 1434* 1436* 1447 1457 1477* 1479% 1489 8 1513* 1515* 1532 1551* 
1554* 1612* 1613* 1615* 1616* 1618* 1619* 1621* 1622* 1624* 1625* 1627* 1628* 
1640* 1641* 1671% 1673* 1688* 1689* 1714* 1715" 1730* 1731% 1752" 1753" 1770* 
1772* 1784 1806* 1807* 1829% 1830* 1851* 1852* 1871* 1872* 1891* 1892* 1926* 
1928* 1932 1938 1993* 1998 2004 2058* 2061 2 2111* 2113* 2158*% 2194* 
2196* =2223* 2224* 2253" 2254% 2497% 2503* 2504 3051* 3053* 3287"  3290* 3292+ 
3294 3565* 3567 
CSRHB_ 001766 1 157 426*  3563* 
CTRCHA 045774 3331* 3332* 3333 3342 33464 3437% 3547 3549* 
CTRLCG 045676 2340 2372 2508 3088 3183 3329 3546 
CURENT 050030 1909* 1919* 1922 1943 1952 1953 1969* 1970* 1978* 1991 2009 2018 2019 
2036* 2037* 36204 
DACADR 050020 3531* 3534* 3538*  3542* 36164 
DACSR 001726 844  1808* 1809 1831* 1832 1853* 1854 1873* 1874 1893* 1894 
DACO 001730 854 3478 3504 
DAC1 001732 864 3483 99 
DAC2 001734 874 3488 3514 
DAC3 001736 884 3493 3509 
DASH 040745 25984 3171 3271 
DDISP = 177570 134 3 147 
DEADKW 004020 364* 372* 3784 =§=1307 1328 
DFO 3 33 34 35 3 3 38 
46 47 48 49 50 51 
59 60 61 e 63 64 
DH1 032467 65 66 23164 
DH2 032502 33 34 35 36 37 38 
46 47 48 49 51 
60 62 64 23174 
DH3 032526 59 63 23184 


DH4 032561 61 23198 





CZNCCB 


CZNCCB. 


DIDATA 
DIF 


NCV11 
P11 


032724 
032732 


032744 


032175 


DIAGNOSTIC 
31-AUG-79 11:21 


J 13 
MACY11 30G(1063) 31-AUG=79 13:10 PAGE 104-4 
CROSS REFERENCE TABLE == USER SYMBOLS 


37174 


2816* 2822 2859 


37 38 39 40 41 42 
50 51 52 53 54 55 


43 
56 


4G 
57 


SEQ 0165 


45 
58 


CZNCCB 


NCV11 


CZNCCB.P11 


(7) 
ao 
vA] 
5 
“wou 


032243 


DIAGNOSTIC 
31-AUG-79 11:21 


K 1 
MACY11 30G(1063) 31-AUG=79 13:10 PAGE 104-5 
CROSS REFERENCE TABLE == USER SYMBOLS 


699 731 764 3057 3335 
335 336* 339» 351 352s 360* 365* 


3160* 

35974 

3243 

2969  2982* 
3344 


25454 
880 885 890 895 900 908 913 


373* 


919 


375* 


925 


SEQ 0166 


2340* 


931 


CZNCCB 


NCV11 


CZNCCB.P11 


KWCSR1 
KWPSR 


2356 
300 
2302 
304 


MNMNNP 
WW 
pat 
oO 


36406 
001740 
001742 
001744 


Ic 
W1¢ 


37114 
2136* 


2352 


2354 
174 
176* 
177* 


2977 
3027 


222 
2680 


L 1 
MACY11 30G(1063) 31-AUG=79 13:10 PAGE 104-6 
CROSS REFERENCE TABLE == USER SYMBOLS 


2184" 2242s 
175 -361.—Ss«*1316* = 11335" = 1337* = 1338~=— 30118 
3016* 3017" 3023% 3024" 3030* 3031 
362-1336" «3010* += 3018 = 3025. Ss 3032S 3045 
2984 33538 
32834 3311 


2984 2277 


2684 2687 2698 2702 


2366 


3224 
3225 
2262* 


1568 
2874* 


2328 26444 
28814 


3229 


3033* 


3046* 


SEQ 0167 


3054* 





M1 
CZNCCB NCV11 _ DIAGNOSTIC MACY11 30G(1063) 31-AUG-79 13:10 PAGE 104-7 


CZNCCB.P11 — 31=AUG=79 11:21 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0168 
NORTOL 046054 3128 ©. 33694 
NURCNT 046062 3209 33728 
NURTOL 046064 3132 
OBSCNT 046066 33744 
OBSTOL 046070 33754 
OFF 001750 354 503* 504 515* 522 551* 553 796% 809 1032* 1066 1100 
1128* 1158" 91187" = 1223% 1233) 1244e «= 1257, 1373e = 1407 = -1433% = 1476* = 1512* = 1550 
1612* 1613" 1615* 1616* 1618* 1619" 1621% 1622* 1624% 1625% 1627* 1628% 1638 
1669+ 1686" 1712* 1728 1750% 1769% 1922% 2110" 2154% 2193% 2221" 2251% 3048 
* 
OKMSG 041022 26024 
OUT 041742 2088* 2089 2095 2127 2128 2135* 2136 2142 2174% 2175 2650# 
QUTCHN 032716 23234 2516 
QUTRNG 032623 2320# 2517 
PASMSG 041651 2627# 3217, = 3245 
PBLAST 042754 238 4389-28214 
PERTXT 041556 26224 3178% 3179* 3180 
053024 782 2815 «= 2836S 37254 
PIRQ = 177772 1 
PIRQVE= 000240 134 
POTIME 047022 218 34334 
PRIME 045776 33474 
PRIMEO 046000 33484 
PRIME] 046002 2744% 2751% 2976% 2983 3051 3288 33494 
PRIMO 050762 2730 2975 36664 
PRIMI 051765 2787 36864 
PRIM2 052156 34 36934 
PRIM3 051536 2821 3680 
PRIM, 052246 03 36964 
PRIMS 051374 2731 36764 
PRIM6 1164 282 «36718 
PROROM 042232 27244 2830 
PRO = 134 
PR1 = 000040 134 
PR2 = 000100 134 
PR3 = 000140 134 
PR4 = 000200 134 
PRS = 000240 134 
PR6 = 000300 134 
PR7 = 000340 134 
PS = 177776 134 
PSW = 177776 134 338 
PWRVEC= 000024 134 147%  2350* 
RAMVAL 042172 2716# 2794 2808 } 
RBEGO 002 181 1934 245 254 2699 2773 2791 2841 2868 2995 3517 
RDBLST 043062 2733 «= 2735. 2737S 2777-2779 —S 2781 = 2784 = 2810S B12 2814 = 2823S «2825 = 2827 
2831 2833 2835 2838  2847# 
RDCHR = 104410 2335 «© 2365 
RDLIN = 104411 194 28 2337. 2365# =. 2788 
= 104412 269 23654 
RE 045136 3186 3202 
READXX 045354 25 
READ1 044420 30954 
READ? 045352 3217* 3219%  3245# 
REDJOY= 000001 131@ 819 838 875 880 885 890 895 900 908 913 919 925 


931 936 


CZNCCB NCV11 _ DIAGNOSTIC 
CZNCCB.P11 31-AUG-79 11:21 
RESREG= 104414 2362 
RESVEC= 000010 134 
ROMPNT 041710 26354 
042132 2635 
RTN 15 26234 
RTRT 002014 23 
RTRTA 204 141 
RUNDIF 05002 184* 
RUNIT 052410 ihe 
RUNITA 052430 264 
SAMCAM 047212 34744 
SAMDAT 047512 3535 
SAVREG= 104413 362 
SDPARO= 172260 144 
SDPAR1= 172262 144 
SDPAR2= 1 64 144 
SDPAR3= 172266 144 
SDPAR4= 172270 144 
SDPARS= 172272 144 
SDPAR6= 172274 144 
SDPAR7= 172276 144 
S 172220 144 
SDPDR1= 172222 144 
SDPDR2= 172224 144 
SDPDR3= 172226 144 
SDPDR4= 1 30 144 
SDPDRS5= 172232 144 
SDPDR6= 172234 144 
SDPDR7= 172236 144 
SFR 001756 1024 
489* 
593* 
674* 
747* 
831 
895* 
962* 
980* 
1016* 
1130* 
1213* 
1284* 
1361* 
1443 
1552* 
1625* 
1687* 
1751* 
1867* 
2109* 
2222* 
3057* 
SFRHB 001770 1074 
SGNVAL 041546 26204 
SGNVL1 041554 26214 


23654 
2749% 


246 


35554 


248% 
3153 


28* 
06 


N 1 
MACY11 30G(1063) 31-AUG=79 13:10 PAGE 104-8 
CROSS REFERENCE TABLE == USER SYMBOLS 


2756 2795 2804 3255 
3265 


2274 2992 36174 

205 206 210 216 

3169 37024 

446* 9 456* 459 
546* 550* 552* 558* 
20* 638* 639* 644* 


925* 931* 936* 956* 
9x 970* 972s 973* 
988* 990* 999*  1000* 
1041* 1046* 1078* 1085* 
1160* 1162* 1166* 1178* 
1239% 12465* 1248* 1252* 
1311* 1317" 13278 1332* 
1406* 1409* 1413* 1414* 
1485* 1495* 1509% 1514* 
1613* 1615* 1616* 1618* 
1642* 1645* 1668* 1670* 
1713* 1716* 1718* 1727* 
1773* 1779* 1801* 1802* 
1925* 1927* 1989* 1992s 
2157* = 2159*% 2162* 2192s 
2255* 2258* 2420* 2421 
3564* 3570* 
3146 


3257 


219 


223 


226 


SEQ 0169 


231 


B 14 
MACY11 306(1063) 31-AUG-79 13:10 PAGE 104-9 
CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0170 


eens 


NINININIRININININRINInnenenene 


NMNNNNNMNNNNNNNT 
N 8 Mmnronrnrnrvnn 
~ NOAKNOSF 


guggcegcegeesces* 


RR 
o 
m 


2117% = =—2119* = 2139* = 2141% = 2164* = =2166* 2187" 2189s 
2266* 2352* 


1964 2031 2125 2335* 2340 2345 2350* 2374 
2401 2407 2412 2487 2489 2511 2518 3250 


203% 2125 2172 3250 
2511 


veekeerrerrecreereeee 





CZNCCB 


NCV11 


CZNCCB.P11 


SW7 
Sw8 


TFSITE 
0 


TSTDMA= 


TST122 


000200 
000400 
001000 


000014 
002022 
= 000002 


003300 
041221 
000060 


000034 
000014 
000004 


000010 


DIAGNOSTIC 
31-AUG-79 


11:21 


S*eeey 


ps4 Nw 
BAILA 
MIN WNW 
VINIINEN 


eeece 


1 ) 
SVAVaSIey 


Ne 
NES S38 
NNWUWO— 


NMMYNMN——Qos 
SES EUIRTSISENS 


SAD at oe Ww 

So38E3s 

ans 

jo tt i a oe 


— — ee ee ee ed eed ed ed ed eed eed ed td = = 
QAAaWUS 
rondo 

fe 


PSRSGUISISS 


NVM So mOAWN OD 
BAVWAEAS2 


S 


ee 


Pie 
Ww 


Sar au 
Vey ve 


— 
oa 
pa 
e 


C 14 
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CROSS REFERENCE TABLE == USER SYMBOLS 


SEQ 0171 


CZNCCB 


NCV11 


CZNCCB.P11 


TST123 


DIAGNOSTI 
31-AUG-79 


— 
tb oe a at a st a a ad dt ad ah 4 4 =o 


ADAG + 
stato OA 


EERREERRERSEZE 5 


a3 


PFS 


serene 


ab a a ah ht 2 a ao 


8 
gee 


5 


LVS 
S2RBN= 


— 
ete 


SR RER UNE 


Oo 


626 


MACY11 306(1063) 


AAA 
ed a cal eld 


MSSeNY wVeeee 


TAGLOOLY ®& 


& § 


BogeEy 


35 
co oO 


fe] 
= 
oO 


SeEsE RE 


D 14 
31-AUG-79 13:10 PAGE 104-11 
CROSS REFERENCE TABLE -- USER SYMBOLS 


1965 
2030 


21314 
21784 


1968 
2032 


19734 
2035 


20414 


SEQ 0172 


E 
CZNCCB NCV11 _ DIAGNOSTIC MACY11 30G6(1063) 31-AUG-79 13:10 PAGE 104-12 
CZNCCB.P11 31-AUG-79 11:21 CROSS REFERENCE TABLE =~ USER SYMBOLS SEQ 0173 


ny 


238 
2865 
5a 


SEESSHLLE ELLE 





F 
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CZNCCB.P11 31-AUG-79 11:21 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0174 


CECKLEC LLCS LLCS LEE LE 


5s a aN 
REGTEESE 


784 
77# 


SEE ueSze 


e 


Ri was 
BESS 
NEN 

4 aeee 


ee 


EERE Sy 
ga geogees 


322 2335 2970 2988 3155 





G 
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CZNCCB.P11 31=-AUG-79 11:21 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0175 
SBASE 001250 7] 154 159 161 2325 2 2327 232 
$BDADR 001122 # 1072s A 1117 1121* 11 1612* 1613* 1615 1616*  1618* 1619*  1621* 
leecs 1624 1625* 1627* 1628* 1649* 1651 1677* 1679 1719* ica 1735* 1737 
1757* 1759 1945* 1952 2011* 2018*  2072* 2105* 2160* 2228* 2 2 2328 
$BDDAT 001126 324 386* 389 401* 40. 410* 411 420* $e! 427 28 436* 438 
449% 450 459% * 478* 479 491% $26 504* 505 a6¢8 36° 527* 
528 532s 533 537* 5 542" 543 553* 567* 575* 584% 
585 601* 605* * gre Secs goes * 633 646% 651* 652 
664* 665 676* 706 7 Oa 7 * 802 809* * 831* 
one 844" 849« 856* 858« 875* $90: eae it 895* 908* 
913* 919% 925* 931* 936* 956* 957* 958* * 961* 962* 964" 965* 
966* o6ee O69e 970* 6 973* 974% 976* 977* 978* 980* 981* 982* 
991" 99 1005* 1007 1019* 1021 1045* 1048 1052* 1054 1059* 1061 1066* 
1070* 1073 1093* 1095 1100* 1104s 1108 1110* Vhl6 1117* 1118 1142* 1146 
1151* 1152 1171* 1175 1180* 1181 1233* 1234 ieee 1258 1277* 1279 1298* 
1300 1320* 1396 1343* 1345 1365* 1367 1385* 1387 1416% 1417 1420* 1421 
1447 1449 145/7* 1459 1464* 1466 1489* 1491 1496* 1498 1502* 1504 1532* 
1534 1612* 1613* 1615% 1616* 1618* 1619 1621* 1622*  1624* Ieeos 1627*  1628* 
1651* 1652 1659* 1679* 1680 1699* 1700 1706* 1721* 1722 1737* 1738 1759* 
1760 17842 1785 1789* 1791 1811* 181 1834* 1835 1856* 1857 1876* 1877 
1896* 1897 1938*  1946* 1948 1953* 195 2004* 2012* 2014 2019* 2021 2067* 
2073* 2075 2118* 2120 2165* 2167 2207* 2209 2230* 2231 2265* 2267* 2268 
2326 2327 2328 
$BELL 164 324 862345 
$CDW1 001254 173 2329 
SCHARC 034652 23414* 
SCKSWR 03 23354 236 
a 001100 147 
SCNILG 033533 23354 
SCNTLU 033526 23354 
$ 036 23524 
$CPUOP 001222 
SCRLF 001171 324 8=692335 2341 2345 2347 
SCROUT 036336 23524 
K 034100 23394 
037040 2 2363 
SDECVL 037220 23624 
SDEVCT 001 324 
SDEVM 001252 
SDIV 0 2 2935 3113 
SDOAGN 030176 2277a 
SOTBL 0340 e 
NDAD 030166 22774 §=2345 
SENDCT 030134 47 22774 
030205 22774 
SENULL 030202 22774 
SENV 001214 324 149 2341 2345 2349 
SENVM 001215 324 147 2341 2349 
oP 030100 376 2275 22774# 2 
SEOPCT 030126 147% 2277# 
SERFLG 001103 324 = 2340* 82345 
SERMAX 001115 324 147* 2340* 
SERROR 035104 147 23454 
SERRPC 001116 32m 2325 2326 2327 2328 2329 2345 2347 
SERRTB 001256 3cH# = 2.347 


CZNCCB 


NCV11 


CZNCCB.P11 


001124 


030156 
033056 
000000 


DIAGNOSTIC 
31-AUG-79 11:21 


H 14 
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32a 


CROSS REFERENCE TABLE == USER SYMBOLS . SEQ 0176 
2340* 2345 
388* 389 400* 402 409» 411 418* 421 425* 428 437* 
450 458* 466* 473* 7 479 483* 486* 490 492 496* 
505 509* 521* 523 526* 528 531* 533 536* 538 541* 
565* 568 574* 576 581* 585 600* 608* 621* 627* 31* 
663% 675* 691* 705* 707 723* 38* 740 756* 801* 802 
834* 845* 850* 851 857* 875* 880* 885* 890* 895* 900* 
919* 925* 931* 936* 956* 957* 58* 960* 61* e* 964* 
968* 969* 970* 972s 973* 974% 976* 977* 978* 980* 981* 
993 1006* 1007 1020* 1021 1047* 1048 1053* 1054 1060* 1061 
1073 1094* 1095 1099* 1105* 1106 1111* 1112 1115* 1118 1141* 
1152 1170* = =1175 1179* = 1181 1232* 1234 1256* 1258 1278* 1279 
1321* 1322 1344* 1345 1366* 1367 1386* 1387 1415* 1417 1423* 
1458* 1459 1465* 1466 1490* 1491 1497* 1498 1503* 1504 1533* 
1613* 1615* 1676* 1618* 1619% 1621* 1622" 1624* 1625* 1627* 1628* 
1660* 1678* 1680 1698* 1700 1707* 1720" 1722 1736* 1738 1758* 
1785 1790* 1791 1798* 1804 1812 1816* 1821* 1826 1835 1839* 
1865* 877 1885* 1897 1939* 1947* 1948 1954* 1955 2005* 2013* 
2021 2068* 2074* 075 2115* 2120 2163* 2167 2205* 2209 2229* 
2268 2326 2327 2328 
2347 
313 2084 2132 2352a* 
2341 2345 
2340* 
382* 432* 474% 487* 500* 1403* 1799 18228 1911* 1980* 2340+ 
310 235 2a 
1240 1748 2128 2175 2182 2219 2°40 2352a* 
147 149 2340 2341 2345 


I 14 
CZNCCB NCV11 _ DIAGNOSTIC MACY11 30G6(1063) 31-AUG=79 13:10 PAGE 104-16 


CZNCCB.P11 31-AUG=79 11:21 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0177 
SMAMSS4 001240 328 
SMBADR 1002 a 
SMFLG 035702 23498" 
SMNEW 033551 23354 

S 001210 324 2349s 
SMSGLG 001212 324 =2349* 
SMSGTY 001174 2349* 
SMSWR = 033540 23354 
SMTYP1 001225 on 
SMTYP2 001231 324 
SMTYPS 001235 324 
SMTYP4 001241 324 
SMULT 0365 23584 2928 3107 
SMXCNT 034372 23404 

001154 324 8=62341 

SNWTST= 3504 3814 3974 4064 4164 4314 4454 4554 4634 472e 4854 4984 5124 


SOCNT 035100 234 34% 
SOMODE 035102 23434* 
SOVER 034356 23404 
SPASS 001202 324 147* 299 1962 2029 2123 2170 2277* 2340 
SPASTM 001006 a 
R 036054 23504 
SPWRDN 035706 4 23504 
SPWRMG 0 2 23504 
SPWRUP 035760 23504 
SQUES 001170 324 253 2335 2341 2345 
SRDCHR 033270 23354 2365 
= keener 365 
SRDLIN 033410 23354 2365 
SRDOCT 033562 23374 2365 
SRDSZ = 10 23354 
E 036450 23564 2365 
SRTNAD 030200 22774 
S$R2A = keeane 2365 
SSAVRE 036412 23564 2365 
SSAVR6 036052 23504* 
037234 23634 3175 
SSCOPE 034110 147 23404 
SSETUP= 000137 1394 147 149 2277 2335 2340 2345 
ZE O 312 23524 
SSIZEX 036342 2352 
= 177777 1394 
SSVLAD 034322 23404 
$SVPC = 0001 294 
$SWR = 167400 5a 21 32 350 397 406 416 431 445 455 


12 147 3 
463 472 485 498 512 5 
711 745 791 817 836 874 8 
918 924 930 935 956 9 


1 
7 680 
9 884 889 894 899 907 912 
8 960 961 962 964 965 966 


J 14 
CZNCCB NCV11 _ DIAGNOSTIC MACY11 30G(1063) 31-AUG-79 13:10 PAGE 104-17 
CZNCCB.P11 31-AUG-79 11:21 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0178 


968 969 970 972 973 974 976 977 978 980 981 982 
998 1012 1029 1077 1125 1155 1184 1217 1238 1262 1283 1305 1326 
1350 1370 1393 1429 1472 1508 1541 1612 1613 1615 1616 1618 1619 
1621 1622 1624 1625 1627 1628 1633 1664 1684 1710 1726 1743 1765 
1795 1818 1842 1862 1882 1902 1973 2041 2083 2131 2178 2213 2 
2273 2277 2340 2345 2350 

SSWREG 001216 324 147 

$SSWRMK= 000000 21 2340 

STEMP 002004 1 335* 339 383* 385 387 393* 394 433* 435 437 441* 442 
1087* 1090* 1404* 1411 1415 1426* 

STEMP1 050014 3061*  3065* 3067 3571* 3577* 3578 3583* 3584 36144 

STEMP2 050016 3572* 3578* 3579 3584* 3585 36154 

STESTN 324 2340* 

STIMES 001160 324 147* 350* 381* 397* 406* 416* 445% 455* 463* 472* 485* 498* 


$TKB 001146 324 §=62335 2688 3331 
$TKS 001144 324 274 277 2335* 2686 3329 
$™N = 000162 64 12 300 340 3504 366 374 3814 3974 403 4064 412 4164 
429 4314 4454 451 4554 460 4634 468 472e 4854 4984 512" 5484 
554 5574 86 5924 604 611 6134 626 6374 649 653 6554 
6694 677 6804 701 708 7114 734 741 7454 7918 806 810 
8174 833 8364 859 8744 876 8794 881 8844 8894 891 8944 
8994 1 9074 909 9124 914 9184 920 9244 926 9304 932 
9354 937 9564 9574 9584 9604 9614 9624 a 96 9664 9694 
9704 9728 9 9744 9764 9774 97 9804 9814 9824 9844 9984 
8 10124 10294 1051 1074 10774 1098 11254 1145 1153 11554 1174 
1182 11844 12174 1220 1235 12384 1241 12624 1280 12834 1301 13054 
1308 1323 13264 1329 1346 13504 1368 13704 13934 429% 1467 14724 
1505 15084 15414 16124 16134 16154 16164 16194 16214 16224 16244 16254 
16274 162 16334 1 58 16644 1681 16844 1705 17104 1723 17264 
1739 174 1749 1761 17654 1792 17954 1797 1815 18184 1820 1838 18424 
1844 1858 18624 1864 1878 18824 1884 1898 19024 1941 1951 1963 
1968 19734 2007 2017 2024 2030 2032 2035 20414 2070 2078 20834 085 
2124 2126 21314 2133 2171 2173 21784 2183 2210 22134 2220 2232 22 
2241 2269 22734 
STNPWR 037150 23624 
T 1152 324 8962341" 2678* 2701* 
STPFLG 001157 324 = 2341 
001150 324 = 2341 2674 
STRAP 037270 147 23654 
STRAP2 037312 23654 
$TRP = 15 23654 
STRPAD 037324 23654 
STSTM 001004 314 
STSTNM 001102 324 = 2277* = 2340") 2345 
STTYIN 033516 23354 
STYPBN= *eeee% (J 2365 
STYPDS 033664 2339% 2365 
$TYPE 034374 23414 2349 2365 


CZNCCB NCV11 _ DIAGNOSTIC MACY11 30G(1063) 31-AUG=79 13:10 PAGE 104-18 
CZNCCB.P11 31-AUG=79 11:21 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0179 


2345 
304 314 324 147 2277 23244 23354 2339 2340 2341 


264 294 
23474 2349% 2350 23624 26298 3429 3699 37334 37344 37354 


renee 


001000 





L 14 
CZNCCB NCV11 _ DIAGNOSTIC MACY11 30G(1063) 31-AUG-79 13:10 PAGE 105 
CZNCCB.P11 31-AUG-79 11:21 CROSS REFERENCE TABLE == MACRO NAMES SEQ 0180 


COMME N 
ENDCOM 
ERROR 


BY. Fs SICH 
BI GEL YYW RONS 


See 


Weandhus 
OS 


oe 


0 
5 
2 
4 
34 
34 
34 
4 
4 
34 
7 


RRBGAN 


— 
acts 
Wo 


NOW 
WMIn 


W 
WANA NO 





CZNCCB NCV11 
CZNCCB.P11 
1621 
1761 
1933 
2024 
2173 
SLASH 134 
SOF TSW oF 
SPACE 134 
STARS 134 
498 
874 
960 
980 
1305 
1621 
1842 
2339 
SWR 134 
TRMTRP 23654 
TYPBIN 134 
TYPDEC 134 
TYPNAM 134 
TYPNUM 134 
TYPOCS 134 
TYPOCT 134 
TYPTXT 134 
SSCMRE 32n 
SSCMTM 328 
SSESCA 134 
SSNEWT 134 
557 
889 
964 
984 
1370 
1625 
1902 
SS$SET 23654 
SSSETM 1474 
$$SKIP 134 
626 
881 
961 
981 
1259 
1618 
1749 
1963 
2171 
-EQUAT hd 
- HEADE 7# 
-KT11 104 
- SETUP 84 
- SWRHI Ld 
- SWRLO 214 
-SACT1 114 


DIAGNOSTIC 
31-AUG-79 11:21 
1622 1624 
1786 792 
1941 1944 
2030 2032 
2183 2210 
29 31 
512 548 
879 884 
961 962 
981 982 
1326 1350 
1622 1624 
1862 1882 
2340 2341 
1474 
2277 
149 
2335 2347 
350 381 
592 613 
894 899 
965 966 
998 1012 
1393 1429 
1627 1628 
1973 2041 
300 340 
634 649 
886 891 
962 964 
982 994 
1280 1301 
1619 1621 
1761 1792 
1965 1968 
2173 2183 
13 
12 
14 
139 
21 
29 


MACY11 30G6(1063) 


31-AUG-79 
1628 1653 
1815 1820 
1956 1963 
2070 2076 
2241 2269 
381 397 
613 637 
899 907 
966 968 
1012 1029 
1429 1472 
1628 1633 
2041 2083 
2347 2349 
416 431 
669 680 
918 924 
970 972 
1125 1155 
1541 1612 
1684 1710 
2178 2213 
403 412 
677 701 
909 914 
968 969 
1051 1074 
1329 1346 
1625 1627 
1820 1838 
2024 2030 
2232 2241 


M14 
13:10 "PAGE 105=1 
CROSS REFERENCE TABLE -=- MACRO NAMES 


SEQ 0181 


N 
CZNCCB NCV11 _ DIAGNOSTIC MACY11 30G(1063) 31-AUG-79 13:10 PAGE 105-2 
CZNCCB.P11 31-AUG-79 11:21 CROSS REFERENCE TABLE =~ MACRO NAMES . SEQ 0182 


SAPTH 114 
-SAPTY 114 2349 
-SCATC 7a 2 
- SCKSW on 
-SCMTA 7# 32 
. 10# 2362 
-$DIV 10# 2360 
. SEOP 7# = 2277 
SERRO 7# = §=2345 
- SERRT 9H =§=—2347 
T 10# 2358 
- SPARM 84 
84 2350 
- SRDOC 104 2337 
EAD 8H 2335 
- SSAVE 84 10# 2356 
. 10# 2363 
- $SCOP 84 2340 
-$SIZE 10# 2352 
- SSPAC 84 
- $SWDO 84 
- STRAP 84 2365 
-STYPB oF 
-STYPD 9H 2339 
-STYPE 7# 84 2341 
-STYPO 7# = =§=—2343 


- ABS. 064002 000 CON RW ms id | 


ERRORS DETECTED: 0 
CZNCCB, CZNCCB/CRF=CZNCCB 
RUN-TIME: 42 31 3 SECONDS 


RUN-TIME RATIO: 120/76=1.5 
CORE USED: 30K (59 PAGES) 


